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SCHfDULING ALGORITH'^ FOR SWAPPING SYSTEM ( 10/551 )( 8URR0UGMS DISK) ^<ACHn,V36 19!1'' 4-JUN-6'! PAGE 1 
;»»»COPYqiGHT 1969. niGITAL rOUIPMENT CORP., MAYMARD. f'ASS."*' 

;ThIS SU^-PROGRAm ASSEMBLEn WITH SYSTEM PARAMETER FILE - S.MAC(V414) 

XLIST 

I. I?T 
;THIS SUP-PROGRAM ASSEMBLED k'ITh CHNF I GuRaT I ON OEPENDEMT FEATURE SWITCHED; - FT5aSB,MAC( 

VLIST 

LIST 
IFE FTDISK+FTRC1!"*2,< 
TITLf '^CHETB - SCHEDULING ALGORITHM FOR S^aPPIMG SYSTEM ( 10/50 )( BURRQUGmS DISK) 

IFF FToISK + FTRC1!?+1,< 



c^0!"0f"ei 



TITLF SCHFDD - SCHFOulING ALGORITHM FqR StiAPPIMG SYSTEM ( 10/55) ) (OAT A PR'.DUCTS DISK 

SUBTTL CLKCSW R.KRASIN/AF/TH/RCC TS 02 JUME 69 V421 
XP VSCHEn,421t 

!PUT VERSION NUMBER IM GLOB LISTING AND LOADER STORAGE MaP 



INTERNAL 



FTRC10 ;THIS source FILE MAY BE ASSEMBLFO TO USE EITHER THE 
I NEW PDP-10 DISK (MODEL RC-10) OR THE OLD PnP-6 DISK (DATA 
; PROOiJCTS DISK FILE) FOR SWAPPING, 



!?0E"000 
00B000 
000071 
K00002 



201040 
40204)1 
4760!^1 



IFN FTRC10. < 

ENTRY PCXSKD (THIS SYMBOL IS SOLELY TO PERMIT SYSTEM 

"OXSKU: 1 BUILOER To RETRIEVE THE CORRECT BINARY FUF 

INTERNAL XCKCSW 

> 

IFE FTRC10, < 

FNTRY XCKCSW 

> 



EXTERNAL JOB.JBTSTS 
EXTERNAL JBTO.PJBSTS 
EXTERNAL PJBSTS.TIMEF.MJOBN 

INTERt>lAL NXTJOR.FTSWAP 

.•ACCUMULATOR DEFINITIONS 

000006 OJ=DEVDAT JQJOR WORD 
000002 SW = TAC1 .-STATUS WORD 

000004 J=ITEM (JOB NO. 

JINITIALIEE SCHEDULER (CALLED FROM SYSINI BEFORE ALL OTHER 
; OEVICES ARE INITIALISED) 

INTERNAL NXTINI 

XCKCSwi 
000011 NXTINI: MOVEI TAC,MAX(a ,MAX, NO. OF QUEUES 

I'i^J^t'. ^^^^^ AVALTB(TAC) )CLEAR SHARARLE DEVICE AVAIL. FLAGS 

000275- SETOM REOTAH(TAC) ,SET SHARABlf DEVICE REQUEST COUN? 

I TO -1, 1,F, NO JOB WAITING OR 



57 

58 ^BPiaJ'S 3550"I0 000115011 

59 («0?'0?'l 402K00 000322' 
A0 00(?0C5 4020Cf0 000323' 
<il 00005^5 402000 00^321' 



=^OJGF TAC. .-2 
=;ET2^ DJOB 

SET^y JOBQUE 



I USING •lEVirE OTHER THAi'J I M T I AL I 2 AT I 0', 

ICLEAH NiO. OF JOBS I^EEOI^G REOUEING 
ICUEAR NO, OF JOHS NEEOIHG EVPAMDING 
i CLEAR JOB MP. TO BE REQUEUE" 



?C-it.iB - SCHffULlNG alGORI^h" FC "JWiPDIM, SYSTE'M 
rLKCS.« R . KPa= IM/4F /I u/qcC T<5 li,'? JijVL b'^ 



V'421 



jR'^OUr.wS DISK) 
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70™i?i'7 ?63i-i? ^^.%":.^0 



D n p J p n, p , 



SCME^B 



'■4 
'5 
66 
'7 
«8 
f 9 
7i5 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
■11 
82 

f(3 
34 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 



- srHFDULING ALGCRITfJ" FOR Sw«PPrG S vs Tf-' ( 1 ?/5 ' ) ( .^IM': 01 ir.t'S OISK) 
rLKCRi» R ,K^A";i\/AF/TM/3cr T<; H7 ji,>[; 69 \/42l 



■^tr.Rn ,\ji(, 19:10 4-JUN-59 PAGE 14 



?0!'2?2 
l»0?a?3 
C0S'2?4 
(»0?iZ?5 
00PI026 
PI0H027 
!'!0P^030 
0000:11 
000032 

^00033 
000034 
000035 
000036 
000037 
000040 



.rvvTjOo ''ErRrMFKTS CijRRE^T j'lB ' S QUAM, 4\0 °ROTECT 
pTIMFS Af'G nTQ^.'E/ES IT [T TUiNT, TIME GONE TT 0. 
.brHvICE^; tNY JOn REOUTJING •^E'^L-FSTED AT OThFR PRIORITY 
.L'^VFLS Th^\ CALLS SHUFi-i.ER,'"^AP''E'' AND ?CMEnULAR. 

.K.AKrs w^ ap<^umptions ^r, «cs 

.RFTUt^NS !\FVT JO!^ Tq R:x, ]\i j, 



EXTERNAL JBTPwP.POTlST 

000010 3360^.0 eB»i50iJ NXTJOH! S'KIP^ TIMET 

(^00011 2540f0 000072' JfiST NXTJHI 

000012 2052?0 00'2Z0 "OVSI Jil^JOBV 

000013 ?05l00 777777 YCVSI Sw,-1 

000014 205240 B0?J0a '^OVSI OAT.S'^P 

000015 612244 0020:10 TONE DAT, JRTSTS( J) 

000016 254020 0Z?^;il' JRST .♦3 

000017 3310!'4 H00«"-?0 =^KIP| JBTSWP<J1 
000020 272l'4 000,^17' 4CTM SW. JPTSWPI jl 



000021 2532?'0 000015' 



3362?0 
2540?0 
2013 '0 
5541 '4 
6201'^0 
302100 
254000 
336B00 
254000 

370104 
602100 
254000 
201240 
200040 
260140 



000000 
000041 ' 
000000 
000015 ' 
311404 
440000 
000051 ' 
000010 • 
000041 • 

000025' 
777777 

000041 ' 

000402' 
000321' 
000162 ' 



tO^J^' Ji . -4 

JRST CKJUI 

"OVEI TJ,0 

HL'2 SW.JjT'STStJl 

TH? Sw , RbM"S><*C^'WB 

("AIE SW.RUNatLF 

JRST CKJR3 

SKIPM TlMEF 

JRST CKJRl 

SOS S^,jnTSTS(J) 
TRME SW,-1 
JRST C^JBl 
MOVEI nATiOTIME 
«OVE TACJOBOUF 
PUSHJ PDP.OXFER 



iCLOCK TIC? 

;no 

;yFS 

idecrement w core protett time 



ICUriRE"JT JOB NO,, IS IT NULL JOB? 
JYES.GO SEE IF uTHFK JOBS NEFD RESCHEDUL lijG 
(GET REATY IV CASE CURRENT JOB UMRUN4BLE 
SGFT JOB STATUS niTS AMD CODFS 

IMASI' OUT DO NHT CARF BITS 
! IS CURRENT JOB ^^UNABlF? 
iN". REQUE CURRENT JOB 
INin, IS THIS A TIME INTERRUPT? 
INO. 

IDECREMENT QUAWT. TIME 

)H4S TIMP GONE TO 0? 

IND 

IYES--RESUEUF ANin RESET QUANT, TIME 



SCHEOB 



- SCHFOULING ALGORITH"! FOR SWAPPING SVSTEm ( 10/50 )( BURROUGHS DISK) 
CLKCSW R,KRAS1N/4F/TH/RCC TS »? JUME 69 V42l 
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l?il 
1?2 
1PI3 
1?'4 
lf!5 
1PI6 
1?7 
1?B 
1?9 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
1?0 
1?1 
1P2 
123 
1?4 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
145 
147 
148 
149 
150 



000041 
(1100042 
(H00043 
000044 
000045 
CI00046 
000047 



000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000060 
000061 
000062 
000063 
000064 



000065 
000066 
000067 
000070 



000071 
000072 

000073 
000074 
000075 
000076 
000077 
000100 
000101 
000102 
000103 
000104 

000105 
000106 
000107 
00110 



337310 
254000 
201200 
2051:10 
616104 
367200 
323200 



412104 
200104 
201240 
607170 
2540i'.0 
603170 
254000 
325100 
136lf0 
306100 
2540R0 
306100 
563004 



334242 

201240 
260140 

3223f0 



373300 
3672C10 

201300 
336006 
367300 
323300 
544206 
570204 
323200 
200244 
603240 
2540«0 

550246 
402006 
301300 
260140 



000322 
000073 
000000 
000002 
000033 
000045 
000073 



000045 
000050 
000330 
200000 
000057 
002001 
000067 
000066 

000000 

000001 
000132 
000013 
000020 



000256 
000326 
000162 
000113 



000322 
000044 

000011 
000244 
000074 
000112 
000307 
000000 
000111 
0000 51 
002000 
000100 

000307 
000244 
000003 
000162 



000111 367300 000074 



CKJHi: 



SKIPG 



OJiUJO'^ 



JRST CKJB5 

^'OVEI J.JOBMAX 

CKJB2! "OVSI SW.JRQ 

TDK'N S;.l,JBTSTSt J) 

?;ojG J..-1 

JUMPLE J.CKJB5 



ANDCAM SW,JBTSTS(J) 
CKJB3! MOVE SW,jBTSTS(Jl 
MOVEI DAT,OC"W 
TLNN SW.CMWB 
JRST CKJF)9 
TLNE SW,SWP*JXPN 
JRST CKJB4A 
CKJ89i JUMPGE SW,CKJB4 
LOB SW.PjtjSTS 
CAIN SWiWSQ 
JRST CKJB10 
CAIN SWiTIOWO 
HRRQS JBTSWP(J) 



CKJB4BI SKIPA DAT.QBITSCSW) 

CKJB4! MOVEI nATiOSTOP 

CKJB4AI PUSHJ POP.QXFER 

JUMPE QJ.SCHFO 



SOSLE 
SOJG 



fJJiOJOB 
J.CKJB2 



CKJBS: 
CKJB6! 



CKJB6A! 



MOVEI QJ.AVLNUM 
SKIPN AVALTa(Oj) 
SOJG QJ.CKJ86 
JUMPI.E QJ,CKJB7 
HLR J,AVLQTB(0J) 
HHRE J.JBiraCj) 
JUMPLE J.CKJsa 
MOVE DAT, JBTSTS(J) 
TLNE DAT.SWP 
JRST CKJB6A 

HRRZ DAT,AVLOTB{OJ) 
SETZM AVALTB(QJ) 
CAIL QJ.MINfl 
PUSHJ POP.nXFER 



CKJBS: SOJG QJ.CKJB6 



SET QJ NON ?ERO IF ANY PEnUFUEING TO DO 

NO REOUFUEING NECFSSARY 

START WITH HIGHEST JOB ^IUMBFR ASSIGNED 

jnB NEEnS REQUEUEIiMG BIT 

THIS JOB? 

NO, KEEP LOOKING 

YESiLOOKEO AT ALL JOBS? 

(MAY NOT FIND A KJOBFD JOB IF HIGHEST 

GO DECR. COUNT QJ09 ANYWAY! 
NCI, MARK THIS JOB AS DHNF 
JOB STATUS WORD 
ASSUME COMMAND WAIT 
IS JOB IN COMMAND WAIT? 
NO, 

lYES, IS JOB ON DISK. OR TRYING TO EXPAND? 
YES, PUT JOB IN COMMAND WAIT Q 
NO, WAIT STATUS CODE DETERMINES NEW Q 
YES, GET OUEUE CODE. 
»»• EXPERIMENTAL ♦•» 
»•• EXPERIMENTAL •»• 

CURRENT JOB GOING INTO TTY 10 WAIT? 
YES. SET IN CORE PROTECT TIME TO -1, 

SO HE CAN BE SWAPPED IMMEDIATELY IF SOMEONE 

ELSE WANTS TO BE SWAPPED IN 
GFT ADDRESS OF TRANSFER TABLE 
IF RUN BIT WAS OFF 
REQUEUE THE JOB 
IF FROM NXTJOB GO DIRECTLY TO SCHED 

I.F, CURRENT JOB NO LONGER RUNNARLE ( I Ow ) 

RUT JHO WASN'T SET SO DON'T DECR OJOB 
ANY MORE JOBS TO REQUEUE? 
YES. BUT LOOK AT EACH JOB ONLY ONCE PER CLOCK TICK 

CK AVAL FLAGS FOR SHAR, DEVS . 

FLAG=0? 

YES -^ TRY NEXT ONE 

NO - OR FINISHED? 

NO--GET 1ST JOB IN Q 

FINISHED 0? WAIT TILL SWAPPER BRINGS IN JOB 
IS JOB IN CORE? 

NO. LOOK AT NEXT JOB IN THIS OUEUE 

TO SEE IF IN CORE. 
NO--GET TRANS, TABLE ADDRESS 
CLEAR AVAL FLAG 

LESS THAN MIN, SHARABLE DEV. 0? 
REQUEUE THE JOB AND PUT IT IN 

PROCESSOR SO SCHEDULER WILL RUN IT 
CONTINUE IF ANY MORE FLAGS TO LOOK AT 



SCHEHB - SCHFOULING ALGORITHM FOR SWAPPING SYSTEM ( l,0/57i )( BURROUGHS DISK) 
CLKCSW H.KRASIN/AF/TM/RCC T5 K? JUME 69 VtZl 
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151 

i-^a 
i^s 
1«;4 
i?? 

156 
I'iV 
IBS 
ISQ 
IftB 
161 
162 
163 
164 
165 
166 
167 
168 
169 



C»0?il2 CKJB7: 

IFE FTSW4P,< EXTERNAL CHK^HF 
PUSHJ PDP.CHKSHF 

> 

IFM FTSWAP,< 
■7'05'112 260140 00C1465I PUSHJ POP.SWAP> 



)NDNE--GO Shuffle ant Swap 



eeicii4 
waciis 

C0?116 

■'0?1?0 

!'0[»121 
"'HC122 



lSCHEDULAR--SEARrH THRU OUEUFS ATCORniMG TO SSCAN TAHlF 
iFOR 1ST JOS IN CORE--RETURN ITS NO. IN J 



s-e/llS 4020110 000000 SCHEn! SET2M POTLST 



2 012 4 
265040 
2540,10 
4760;^0 
2003"'4 

6033.''0 
2540f2 



300430' 
00!?i225' 
000130' 
000113' 
;n 2 ' 

006001 
000000 



►-OVEI DAT.SSCAN 
JSP TACOSCAN 
JRST SGHDl 
SETOM POTLST 
"OVE UJ.JBTSTS(J) 
TLME QJrSWP+SHF*JXPN 

JKST (TACl) 



ICLEAR POTENTIALLY LOST TIME FLAG 

lADDRESS OF SCAN TABLE 

IBEGIfv SCAN 

INC MORE JOBS--RETURN NULLJOB 

ISFT POTENTIALLY LOST TIME FLAG FQR CLOCkI 

I IS THIS J0t3 SWAPPED OUT 

IMONITOR WAITING FQR I/O To STOP, OR JOB rXPANOING COfiE? 

IYES--CONTINUE SCAN, JOB CANNOT BE RUN 



170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
1S0 
131 
in2 
1B3 
184 
1«5 
186 
1B7 
188 
1R9 
190 



('00123 
000124 
^00125 
000126 
000127 
000130 
000131 



000132 
000133 
000134 
000135 
000136 
000137 
000140 
000141 



576100 
205300 

417374 

40205:0 
263140 
4002'70 
263140 



332000 
331004 
254000 
201240 
254000 
400000 
000006 
000000 



000321' 

000370 

000120 ' 

000117' 

000000 

000000 

000000 



000141 ' 
000054 I 
000065' 
000137' 
000067 ' 
000205' 
777760 

000000 



SCHDl! 



hlREM TArl.JOBQJF 
MQVSI nj.wTMASK 
AhPCAM QJ,JBTSTS(J) 
SLT2M POTLST 
POPJ pnp, 
SET? J, 
POPj POP, 



;yes--save ITS a 

ICLEAR WAIT CODE 

ICLEAR POTENTIALLY LOST TIME AS A USER I <: TO BE RUN 

IRETURN 

IRETURN NULL JOB 



jTFMPORAPY experimental SCHE'^ULIt^G CHANGE TQ PERMIT TTY- [ /O-WA I T-SAT I SF 1 fD JOBS ON 



THE DISK TO DISPLACE 1/0 BOUND JOBS IN CORE. 



R. CLEMENTS/0. PLUMER 9 ".AY 68 



CKJB10! SKIPE INFLG 

SKIPL jBTSWPfJ) 

JRST CKJB4B 

MOVEI DAT.CKJBT 

JRST fKJB4A 

CKJBT! EXP EQFIX 

XWD nuTTY,-PQ2 IMAKE JOHILPT) COMPETE WITH CPU BOUND JORS 

INFLGi jNON-EERO MEANS AT LEAST ONE JOB ON DISK WAITING TO COME IN, 



SCMEHB - SRHFDULING ALGORITHM FOR ?W4HPlvG SYSTEM ( 10/5il )( qURFOUGHS DISK) 
CLKCSW R,KRASIN/AF/TH/RCC TS t2 JU'^E 69 Vl?! 
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191 
102 
193 
191 
195 
196 
197 
198 
199 
2("ia 
2B1 
2«2 
2713 
2 HI 
2B5 
l^b 
2 07 
2?i8 
2'19 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 



SURTTL OCSS R. I'HASIN/Ar TS^,17 22 maP 68 VCi^f 

(THIS ROMTJKf MUST HT /iSSLMBlEn f.'ITH THE CONFIGURATION 

,TAPE TO DFFINC MI'-lrtFR OF JO«S 

,THIS SECTIO^' CO'TAImS 2 ROUTIMeR eqR Q MANIPULATION 

,ANo necessapy Tables for spfgifing operations performed 

,BY THEM, 

EXTERNAL IMGIN,J«TSTS.JBTADR,PJB?TS 
INTERNAL (JXFFR,S?CAN,FTSWAPiFTniSK 



.STORAG 
.EACH 
.LINKtn 
,A Q-HE 
.A NULL 
,UP THE 
, I^'DICI 
.POSITI 
,PER LI 
,JCB ^n 
, ITS CO 
.POInTE 
,4nS0LU 
, L H t L I M 
, A jnri 
, THE '"JU 
.ITSEUr 



E: 

IS A 

? R I N 
AHER 

Q HA 

5 A 
t"; (A 
V t I N 
NK TS 
. (OR 
•\l T E '■! T 
■i^ 4i-< 
TF AO 
|<)=RA 
IS AS 
LL JC 

IS T 



RINr. 
G LIS 
POINT 
S ONE 
'E CO 
noRE'; 
OICIF 

NECF 

a NO 

s CO 

ALS 
ORESS 
CKWAR 
SUMEO 
n (jo 
:-(E B 



STRUCTU 
T, THF " 
IMG TO T 

LINK--T 
NTAINED 
SES LESS 
S USET F 
SSAPY--I 
IF \EG 
TAP'S TH 
r-JDICI 
ES--Ri((L 
D POINTF 

To BE I 
8 1!) OOE 
HEA'JER F 



RED. FO 
FIRST" 
HE EIRS 
HE n-HE 
IN A TA 
TH'N J 
QR wEMB 
TS iROR 
ATIVE) 

E link: 

ES PEL A 

INK)=FO 

R. 

N Nf MQ 

S N'lT A 

OR (^ 0) 



WARD AND BACKWARD 

LINK IN A Q IS 

T AND LAST MEMBERS OF THE 0, 

ADER ITSELF, THE LINKS MAKING 

PLF (JBTOl WITH NEGATIVE 

PTO) USEO FOP Q-HEAOERS ANfl 

ERS (JOBS), THUS ONLY ONE WORD 

FSS RELATIVE TO JSTQ GIVES THE 

'»HICW IT REPRESENTS WHILE 

NtG POINTERS, THESE 

TIVE TO JRTiJ RATHER THAN 

'.'ARC POIN'TERi 

PE THAN ONE D AT A TIME. AND 
PPFAR IN THE QS (I.E. JBTD 



.routines: 

.both routines ape "table driven" in the sense that the 
.calling routine provides thf aonress of a table which 
.defines the specific operations to be performed. 



SCHEOB 


- SCHRDULING ILGOPIThv r 




PCSS R, 


KRASIN/AF TS',1 


221 








27i 








?.''b 








171 








?7S 








27.9 








Z^i 








?11 








232 








2^3 








2S4 








2.-!5 


("0B112 


211010 


00?)<)00 


ZSb 


pi0011i 


501010 


000001 


2-M 


f 00111 


202011 


0001001 


2.-?B 


("0PI145 


253010 


000111 ' 


239 


(100116 


201040 


777753 


240 


'^1l?^\1l 


205040 


000000 


211 


T'.Wl'^Ii 


2012;'0 


000013' 


212 


PB^l^l 


202011 


"00111 ' 


213 


('00152 


5062!'0 


000i',-!B 


244 


(100153 


201010 


00?1(!01 


?45 


000151 


512010 


00r"i.',2i 


216 


000155 


5422:''1 


'00^00 


247 


?00156 


1020^0 


000151 1 


218 


000157 


,363271' 


■',50000 


249 


000160 


5062r'1 


200117 ' 


250 


000161 


2510?!0 


000155' 



7 unn • 



G S''STL'- ( 10/5?|) (flUHuoHGt-'S DISK) 
b V f e ,' 
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iCJUEUt. !■■ ITI ALIr:'. T l^^ 

IPUT 4LL jnH'= n\ NULL TJFU^CJO'? '.0, N^OT ASSIGNED) 

.'CALLtn PN kFSTAQT at 10", 143 

INTERNAL lilM 

rXTEl^MAL CPOCj.Jnfc^'AX.MX.'IUE.JfiTa 

EXTERNAL jBTPPl lElUJLS JBT3+I 

FXTER'NAL JRTTMI UiOUALS JBTO-1 

EXTERNAL JinOMN iEOUALR JBTQ-NUL'^ 



QINI ! 



"OVM TACI.'^XQUE 
MRL TAG, TAG 
'1CVE»< TAG, JBTQ(TAC) 
AO«JV TAG. ,-1 
>'OVEI TAG.-N'JL"! 
"OVS»' TAGiJeTtJPl 
"OVEI ITE".JGBMAX 
"OVt'' TACi JBTQ( ITE"^) 



IMAKE ALL OUEUE HEAUERS POINT TO THE'^SElvES 
itJACKKARO POINTERS TOG 



IPUT JOB? All in nulq gjeuf 

IblACK POINTER FOR JOP 1 

iMAX. JOP MO, 

!FOR, POINTER OF JOBMAX JOP NO, 



3 I " II : 



hRLK ITE", JB■!■BM^■ isFT NUlO HEADER TO POINT tq jobI 
"OVEI TAG,1 lAND J0B1AX 

iRR" TACJHTTMM IFORVARO POINTER 



WhRK ITE»', JSTQ'n ( ITE'O 
SETF" JtiTQ 
'^OJL'^ ITEM.CPOPj 
MRlm ITEk, JBTQPK ITE?') 
.JHST QIMl 



ijOB I-l P01^■T TO JOP I 

IFINISHEO? 

IBACK POINTER JOB I+l POINTS TO JOB I 



•sCHEOB 
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251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 



DELElEb A JOB FROM ITS "SOU^CF-O", OETERMlNES A "OEST-Q" 
ACCORDING TO ONE OF 3 FUNCTIONS, ANO INSERTS THE JO'^ AT 
THE BEGINNING OR FNO OF T H I "J OEST-Q. IN AODITION IT may 
HESFT THE JOB'S QUANTUM TIMF (RH JBTSTS). 
THE URIVIMG TABLES ARE "TRA>JSFER TABLES"! 



T, TABLE! 



EXP <CODE> 

XWO <OUANT-TAB>,<Q-TAB> 



DEPENDI^'G ON <COUE>, THE SECOND WORD IS EITHER DATA OR THE 
AODRESSFS OF "CORRESPONnANCF TaPLES", 

THE PREFIX np <COOE> SPECIFIES WHETHER THE JOB IS TO PE 
INSERTFn AT THE BEGINNING 0^ EN" OF THE DFST-0. THE SUFFIX 
^FTFHMI^lES THE FUNCTION USEH TQ SFLFCT THE DEST-0, 
THE FOLLOWING ARE THE SIX CODES AMD THEIR TABLE FORMATS! 



DEST-0 AS A FIXED (PREDETERMINED) Qi 
BOFIXi INSERT AT BEG OF DEST-O 
EOFIXt INSERT AT ENO 

THE JOB IS TRANSFERED TO THE END OR BEG, OF THE Q <Q-TAB> 
IF <;qUANT-TAS> = -1, QUANT, TIME IS NOT RESET, 
IF <QUANT-TAR> ,G. , QUANT, TIME IS RESET TO <QUANT-T A9> . 
SINCE THIS FUNCTION IS FULLY DEFINED BY THE SECOND WORO 
ALONE. NO CORRES, TABLE IS NECESSARY, 



SCHFDB 



279 

201 
?t!2 
2«i 
2^4 
295 

2^7 
2<iB 
209 
?9t" 
201 
212 
203 
294 
205 
206 
297 

298 
299 

3?1 
322 
333 
37 4 
3?5 
3^6 
3^7 
3;"B 
3C9 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
3?0 
321 
3?2 
323 
32 4 
325 
326 
327 
328 
329 



- SCHEDULING MGORITMM FO 
ncSS R, KRASIN/AF TS3,17 



R SWAPPI^]G SYSTEM(14i/53) (B'JRPOUGMS DISK) 
22 MAR ^6 V3HH 

DEST-Q AS A FUNCTION OF SOUSCE-0 
BnLINt<: INSRT AT BEG OF f'E'^T-Q 
EOLIMK; insert at .FN" 

<Q-TAe>=AODRES OF A CORRES. TARLF "LINKING" SOURCE-QS TO 

HEST-OS, 

IF <0U4NT-TAR> I -1, QUAMT. Tl^l IS NOT RESET, 

OTHERWISE <QUAMT-TAB> IS TSKEN AS ThF AOnRESS OF A 

TAPLF OF QUANT. Tl^ES CORRFSPCVD I NG TQ THE Q-LINKING TABLE. 

FORMAT OF THE TARLFS ARE! 
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<Q-rAB>: 



<QLIANT-TAB>1 



xwn <SQi>,<D0i> iiST source-oidest-q pair 

yWD <SON>,<Q''N> inth , . , 

? ;ZERO TERMINATES TABLE 



FXP <0UANT1> 
FXP <QUANTN> 



ICORRES, TO <Q-TAB> + 51 
ICORRES. TO <Q-TAB>*N-1 



UPON A CALL TO QXFER FOR THESE 2 CODES, AC T2 CONTAHES 
THE SOIIRCE-Q (CURRENT 0) OF THE JOB, THE LH OF THE 
<Q-TAB> ENTRIES ARE SEARCHED FOR A HATCH., IF FOUND, THE 
RH IS TAKEN AS THE OEST-Q AND THE OUANT. TIME IS RESET 
(IF <QUANT-TAB> NOT -1) TO THE CORRRES. ENTRY IN THE 
<QUANT-TAB> TABLE. 
IF NO MATCH FOUND., NO TRANSFER TAKES PLACE, 



DEST-0 AS A FUNCTION OF JOB SIZE 
BQJSIZ INSERT AT BEG OF DEST-0 
EOJSIE INSERT AT END 

<Q-TaB>=ADDRESS of A TABLE ASSOCIATING JOB SIZE 

( IN IK BLOCKS) TO DEST-OS, 

<QUANT-TAB> HAS SAME MEANING AS FOR B-E(3LINK 

<Q-TaB>; XWD <JSIZ1>,<001> 

XWD <JSIZN>,<OON> 
H 

<QUANT-TAS>I SIMILAR TO THAT FOR B-EOlINK 

THE <JSI?>'S MUST RE IN INCREASING ORDER. 

THF TABLE IS SEARCHED UNTIL <JSIZ> IS LESS THAN OR 

EQUAL TO THE JOB SIZE, THEV THE CORRES. <0r3> IS 

TAKEN AS THE DEST-Q, IF THF TARLE IS EXAUSTED, NO 

TRANSFER TAKES PLACE. 

OUANT. TIME IS HANDLED AS IN B-EOLINK, 



■^CHtTB - SCHfDULlNG ALGORITH'J ro^ SWAPPI^■G SVSTL'^ ( lK/5,? ) ( BURPQUGMS DISK) 
cess "5. KRiSIN/AT TS3,17 2? «<A9 68 VfHa 
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373 








331 








332 








3 33 








331 








335 








336 








337 








338 








339 








310 






0000?5 


341 






000304 


342 






0000TI7 


343 






000002 


344 






000031 


345 








346 








347 








348 


!»0!'162 


200345 


0000''1 


349 


?azi63 


254025 


000?'R0 


3?0 








:i'ii 








352 


7li)!'l64 


3361?7 


000000 


353 


P'0C165 


?63l4e 


000300 


354 


("0^166 


5741'e 


000002 


355 


000167 


3121?0 


000001 


356 


000170 


252340 


000164 • 


357 


000171 


254e'00 


000201' 


358 








359 








360 


000172 


554E44 


000000 


361 


000173 


240040 


777766 


362 


000174 


205041 


000001 


363 


000175 


336107 


000000 


364 


000176 


265240 


000000 


365 


000177 


313040 


000002 


366 


000200 


252340 


000175' 


367 








368 


000201 


204040 


000007 


369 


000202 


560347 


000000 


370 


000203 


331005 


000001 


371 


030204 


504341 


000000 



CALLING SF^IiENCEi 

"Cvr J, [ jOR NUMBER] 

"OVt T2,[CURREVT Ql IBOLIMK AND fOLlNK ONLY 

^CVEI TT,TRA^S TABLE APDRESS 

0US^J fQo.QxrE^ 

JRETIiRN 
C\ RETUK,\, J I'; UNALTfREOi LH(n)=-l IF QUANT, TIME ^OT 
RE^iETi =:;"AH!T. TIME ir RE'=ET;RH(Q) =DEST ,Q 

ACS! 

TT = OaT iF'OI^TER TO TRANSFER TABLE 

J=ITEM ;J0B NO. 

Q=PROG IDEST-I ANH QUANT, TIME ON RFTURW 

T1=TAC1 ;TFMP 

T2 = TAC iTF'-io AND SOllRCE-Q Ofi CALL TO B.EDLIWK 



EXTERNAL ERROR 



OXFER: 



WOVE Q,1(TT) 
JRST SITT) 



;GET TRANSFER TABLE ADDRESS 
IDISPATCH 



,DEST-Q AS Fl^NCTION OF SOURCF- 
OLINK! SKI?^ T1,(Q) 

oCPj POP, 

i-LRE Tl.Tl 

TAME T1,T2 

AOBJP Qi-^LINK 

JRST QX2 

,DFST-0 AS FUNCTION OF JOS SIZE 
OJSI?! HLRH T2.JBTAnR(J) 



(END OF TABLE? 
lYES 

JNO--SOURCE-Q=LH(TABLE ENTRY)? 

INO- CONTINUE SEARCH 

iYFS 



0X2: 



ASH T2,-fD10 
MOVSI T2,1(T2) 
SKIP'^' Tl, (Q) 
JSP DAT, ERROR 
DAMLE T2,T1 
AOBjP n.oxi 

MOVS T2.Q 
HRRO Qi(n) 
SKIPL KTT) 
i-'RL Qi (T2) 



IHIGHEST REL. LOC. OF JOB 
ICONVERT TO NO, OF IK BLOCKS - 1, 
INO, OF IK BLOCKS TO LH, 
lEND OF TABLE? 

IJOBSIZE .LE. LHCTABLE ENTRY)? 
INO--CONTINUE SEARCH, JUMP ALWAYS, 

IT2 IS ADDR, OF QUANT , T I ME ( I F REQUESTED) 
|RH(0)=DFST-Q1LH=-1<N0 QUANT, TIME REO.) 
IHAS QUANT. TIME REQUESTED? 
IYES--GET IT 



SCMEHB 



- SrHFDULiNG ALGORlT^^i Fof SWaPPIp'G SYSTE m ( 12/551 )( PURROUGHS DISK) 
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372 












373 








.FIXFL 


1 DEST--> 


374 


C0(»2r5 


2B01P4 


0.OP156' 


Qf'ix: 


!'OVr T1,J8TQ(J) 


375 


7e?:?C,b 


^04040 


0^^002 




"GVS T'.Tl 


376 


l'0C2?7 


^IPl'-l 


00r!2^5' 




tJRR^ Tl,jnT0(T2) 


377 


?a?2ivi 


505042 


000207 ' 




^■RLM J? , JhTQ( Tl ) 


378 












379 


!10f2U 


3350-.'5 


000000 




SKIP-^E (TT) 


330 
331 


000212 


544347 


000210' 




'^LR T.JBT3(Q) 


382 
3H3 


000213 


200047 


000212 ' 




MOVE T2,jBTQtQ) 


384 


000214 


542207 


000213' 




MRRm J.jnTOtn) 


3S5 


000215 


5062'',l 


000214 1 




"RLNi J,JBTQ(T2) 


3B6 


000216 


542044 


000215' 




HRRm T2.JBTQ<J) 


387 


000217 


505344 


000216' 




UHIV n,JRT(l(J) 


388 












ZR9 


0002?0 


321340 


000224 ' 




JUMRL 0,0X3 


390 


000221 


546344 


0ii)3125' 




HLRI' Q. JBTST<;(,J) 


391 


000222 


201240 


000000 




MOVE I TT,RNU 


392 


000223 


137240 


000050' 




npo TT.PjiiSTS 


393 


000224 


263140 


000000 


0X3 : 


OOPJ pnp, 


3 94 












395 






000205' 


B(JF1X = 


OFIX 


395 




400000 


000205' 


FQFIX= 


DFIX + 1'?0 


397 






000154' 


ROLIMK 


=QLIMK 


398 




4000?i0 


000164' 


FOL INK 


5QLINK+1R0 


399 






000172' 


HUJSI2 


=QjSI£ 


400 




400000 


000172 ' 


rojsi^ 


=QJSIZ*1B0 



SQELETE JOB FROM SOuRCE-O 
IT1=F0RW. LIMK, T2=B4CK LINK 
IF0RW, LINK PAST JOS 
li34CK LI^K P»ST JOB 

lE'viQ OR "EG, OF Q? 

IEMO--THIS WILL LEAVE R=IDX OF 

) CURRENT LAST LINK;T2=inX OF 0-HEADER 

;eEG--T2;I0X OF CURRENT 1ST LINK 

) 0=IDX OF 0-HFAOER 

I INSERT JOB IN OEST-Q 



(RETURN IF aUANT, T I »4E NOT RFQ. 
;SFT QUANT. TIME 

ISET JOB STATUS WAIT 
ICODE TO RUM QUEUE (0) , 



SCHEDB 



4?1 
1?2 
403 
414 
4515 
406 
4517 
4!'8 
4i»9 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
471 
422 
423 
4?4 
425 
426 
427 
426 
429 
430 
431 
432 
433 
434 
435 
436 
437 



• SCHEDULING ALGORITHM FQR SHA^PIVG SYSTE," ( 10/5!1 )( BURROUGHS DISK) 
nCSS R. KRASIN/AF T<J3,17 22 MAR 68 M^m 
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000004 
000005 
000001 
000002 



SCANb THE QS RETURNING THE "lUMBFRS OF THE JCBS IN THE QS. 
THE CRDFR AMD MANNER IN KHKH THE OS ARE SEARCHED IS 
DETERMI^IED 9Y A "SCAN TABLE" • ADCIRESSEO IN THE CALLING SCQ. 
THE SCAN TABLE HAS THE FORMI 



SCANTAB; 



XHO <01>,<C0DE1> 
XWD <QN>,<COf'EN> 



ISCN 01 ACCROING TO CODEl 

ION ACCORDING TO COPEN 
I2ER0 TERMINATES TABLE 



EACH MAV BE SCANNED \K ONF OF FOUR WAYS SPECIFIEDBY <CODE> 
THE CODES ARE! 

QFOR SCAN WHOLE Q FOWARD 

QFORl SCAN FOR ONY THE 1ST MEMBER (IF ANY) 

OBAK «:CAN WHOLE BACKW»Rn 

QRAKl SCAN BACKWARD FOR ALL MEMBERS EXCEPT THE 1ST 

CALLING SEQ. 

MOVEI ST, SCAN TABLE ADDRESS 

JSP PCiQSCAN ;SFT UP PC FOR REPEATED RETURNS 
IRFTURN HERE WHEN NO MORE JOBS 
IRETURN HERE WITH NEXT JOB IN AC J 
; ANf ITS n IN LH(QR) 

PERFORM ANY NECESSARY TESTING OF THIS JOB 
J, ST, PC, OR MUST BE PRE'SEPVED 



JRST (OR) 



IRETURN TO QSCAN TO GET NEXT JOB 
) IF THIS ONE NOT ACCEPTABLE 



ACS! 
J=ITEM 
ST=DAT 
PC=TAC 



;JOB NO, 

IPOIMTER TO SCAN TABLE 

IRETURN ADDRESS 



0R = TAC1 I ITERATED RETURN ADDRESS TO QSCAN 



F^CHEHB - SCHFDULING ALGORITHM FO" SWAPPInig SYSTEi- ( 1(!/5?! ) ( BURi^aUGHS DISK) 
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438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
4S3 
4'54 
455 
456 



C0C2?& 
1?|002?5 
f"0P'2?7 
C^0C230 



910^232 
"00233 
000234 



3361:?5 
?540''l 
5742'i'0 
?540r»2 



000000 
000000 
000B02 

0000C0 



OSCAN! 



SKIPN QR,(ST) 
JRST (PC) 
HLRE J.Qf^ 
jRST (OR) 



lEMD or SCAN TABLE? 

) YFS--RETU''N TO CALL*! 

INO--GET NO. OF 
IDISPATCM 



000231 2011?0 000234' OFORl! ^-OVEI OR.QFQRS !0\iL'>' THE FIRST JOB 



5702''4 
3272.41 
3 4 4 2 4 



000217' 

000001 

000225' 



OFORl 



QF0R2: 



000235 5742"4 

000236 333e"4 

000237 2540H1 
000240 344240 



000232' '^BAKl! 
000235' 

000001 

000225' 



000241 5742"4 000236' OBAK; 

000242 327201 000001 

000243 344240 000225' 



wRRE J,JBTQ(J) 
JUMPr, J.KPCJ 
AOJA ST, OSCAN 

HLPE J.JETQ(J) 
SKIPLE JRTQ(J) 
JRST l(PC) 
ADJA ST.QSCAM 



ISCA't FOWARD ALL JOSS 

IRETI^RN THIS JOB NO. CALL*2 UNLESS- 

lEMD OF THIS Q--GET NEXT Q 

ISCA"-' BArKWARD ALL JOBS EXCEPT IST 
IIS THIS THE FIRST MFMRER7 
INO--RFTURNI CALL*2 
IYFS--GET "vlEKT Q 



HLRE J,Jt?Tn(J) ISCAV^ BACKWARD ALL JOBS 

JUMPG J.l(PC) iRETURN CALL*2 WITH JOB NO. UNLESS 

AOJA ST, OSCAN IBEG OF THIS Q--GET NEXT Q 



SCHEHB - SCHEDULING iLGORITH'-i FOR SWAt^PIMG SYSTEM ( la/53 )( BURSiOUGHS DISK) 
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457 
45S 
459 
4^0 
461 
462 
463 
464 
465 
466 
467 
468 
469 
47B 
471 
472 
473 
474 
475 
476 
477 
478 
479 

Ana 

4«1 
412 
4B3 
434 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
5!^1 
502 
5Jf3 
534 
505 
506 
507 
508 
5<?I9 



000244 
00P1244 
000245 
000246 
000247 
000250 
000251 
000252 
000253 
000254 
000255 



000e»0 
0000'yi0 

0000!'I0 
1! 

0000 
0000010 
000000 
15100000 

00001^0 

000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000ai2 

000012 



INTERNAL 


FTCWECK, 


,FTmONP 


IFN FTCHFCK+FTMOf 


iP, 


, < 


EXTERNAL 


AVALT8 






HEFIML X(A,B).< 






EXTERNAL 


A' AVAL 






INTERNAL 


A'Q 






A'T=H^ 








?.i--iJ*'L 








> 

( 
1 


?2 = 

1UEUES 
..OC = ?Z 






> 








iFi: ftchfck+ftmonp, 


,< 



jSHARABLE OEVICE just "ecOME AVAIL48l-E(EXTENnEn TO OTHER QUEUEW TOO) 

IAPPROPRIaTe ENTRY I? SET NO^J-^EPO WHEN SCHEOULER SHOULD LOOK 

iAT THAT QUEUE TO FIND A JOB TO RUN 

IWSAVAL CONTMNS THE NO. OF JOBS WITH ID WAIT SAT I SF lED ( = MONE ) 

lEFINE X(A,B1 
<IMTfRnAL A'fiVAL.A'Q 
4 ' D= .-AVALTfi 
A' nVAL ! ? 
> 

INTERNAL AVALTB 

AVALTB: OUEUFS (GENERATE Thf AVAL FLAGS 

RNAVAL! " 

WSAVALI 

TSAVAL! 

STaVAL! 

AUAVALi 

MQAVALl 

DAAVALi 

DTAVALl 

DCAVAL! 

MTAVALi 

LOC=, -AVALTB 

> 

NQUEUE=L 

XP MAXQ, 

XP MIIMQ 

XP AVLNU 



-OC 

.vOUEUE-1 
,STQ 
.MAXQ 



INO. OF OUEUES COUNTING RUN QUEUE 

IMAX, STATE CODE WHICH HAS AN AVAL FLAG 

(MINIMUM SHARABLF OEVICE QUEUE 

IMAX. STATE COOE WHICH HAS AN AVAL FLAG 



(DEFINE STATE COOES WHICH 00 NOT HAVE AVAL AND RED FLAGS 



DEFINE X(A) 
<INTERNAl A'Q 
A'Q=LOC 
L0C=L0C+1 



;cyE"E 



510 
511 
^12 
513 
51 1 
515 
516 
317 
5<8 
519 
5'fl 



- SCHEDULING iLGORIfH" mu ^happj. 
RCSS R. KRASI^/AF TS3.17 2? xAR . 



G b^STt-M l.i'/S-') (;-!URi;r!iGuS DISK) 
6 V 't?' 



^i)?if 1 7 
00?Z21{ 

Si3?i^22 



^ES' X IQW.f I\TER"4L \0-'IQ 



LOCsLUC*! 

Puj=LDr 

LOC'LJC*! 

pa,"' = i. oc 

LUC=L0C+1 



STATE CODE 



iCOfMA^O OELSY ;JUEUE 
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S-J'J\-69 Pi'E 



5?1 










5?2 










5?3 










b?") 










=J?5 










576 










5'7 










5?B 










5?9 










5:^13 










•iM 










532 










533 










'334 


P!0(?256 


0000 


'0 


000332' 


535 


nac»257 


0000 


'■0 


000334 1 


536 


C0f 2(;a 


0000 


-0 


000336 ' 


537 


!i0P'261 


0000 


'■0 


000354 1 


538 


a0!»262 


0000 


'■0 


000344' 


539 


("00263 


0000 


'0 


000346 ' 


540 


("00264 


000000 


000350' 


541 


000265 


010045 


'0 


000356' 


542 


'^00266 


0000 


:0 


00'"352' 


543 


000267 


0000 


«0 


000360' 


544 


£"00270 


00001 


10 


000340' 


545 


000271 


?000' 


'0 


000342' 


546 


000272 


3000 


'0 


000362' 


547 


000273 


0000 


■0 


000324' 


548 


000274 


0000 


'0 


000326' 



ICORRESPONDEfiCF TABLF ^lETWFE'' JO" STATUS CODfS A^JO QUE'IE TRANSFER TaolES 
;USED HY SKHFOULER 

iRUNrss «ETs jna status vord tt mei" state cooe, 

JSCHEUULFR SFTS UP QUEUE TRa>'SFER TAPLE ADDRFSS FROM 
;F0LLUW1MG TABLE USIVG NF>/ STATE COOF AS. INOFX 

nEFINt X(A,d) 

< EXP O'A'W 

> 

INTERNAL (JRITS 

OBITS! 



nUEUFSt 


X 


RN,7 


t 


FXP 


QHNW 


X '«IS.6 






EXP 


i-iWSiJ 




X TS,6 






FXP 


"TRW 




X ST, 6 






FXP 


"STW 








AU,4 


T 


EXP 


OAUW 






M0,4 


♦ 


FXP 


OMOU 






0A,4 


t 


EXP 


ODAW 


X DT ,4 






FXP 


•;oth 




X nc.4 






FXP 


ODCW 




X MT.4 






EXP 


')»TA 




f-ODESt 




low, 


• 


FXP 


OlOWW 


X TIOW, 






EXP 


(5TI OWW 




X SLP. 






EXP 


SSUPW 




X tMUL, 






FXP 


ONULW 




V STOP. 






FXP 


OSTOPW 





■^CMrnB 
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D'50 

551 
552 
553 
554 
555 
555 
557 
558 
5 = 9 
5'.0 
561 
5^2 
563 
564 
565 
366 

5': 7 

568 
569 
570 
571 
572 
373 
574 
575 
576 
577 
578 
579 
5 '10 



f!0'7275 
5^055275 
33^276 
P! 133277 
^0P!3i30 

["0^3'?!2 

?I0037'1 



T'W.li "0 

C0e0i-vJ 
■;)0f0i0 
B00^z0 

f100£.'0 
9l0!?f'0 
0000^0 

?000,'a 
00e?'.»0 
!'00?i:'0 



00?I000 

0051000 

000000 

000000 

000000 

000000 

0000;!0 

000000 
000000 
00?0n0 



IFM FTCHrCK*rT»"OMPi < 
nEFIME X(A,B),< 
EXTERNAL A'RFQ 
> 

aUEUES 
EXTERNAL REQTAR 
> 
IFE rTCHrcKfFTwovP,< 

iSMARARLF DEVICE REQUEST T ABI E ( GE.sjFRAL 1 2FD FOR OTHER QliEUES TOO) 
iCnNTAINS The number Of job "AITING TO USE SUARBLE OFVICC 
;WSREiJ AMD R^JREQ ARE UMUSEO 

OEFINE X(A,B! 
<A'RFQl 
INTERNAL A'REO 
> 

INTERNAL REOTAB 



REQT4B! 



OUEUES 

V Ris,,7 
X WS.6 

V TS,6 

X <;t.6 



'5T,4 
nc.4 
MT.4 



(GENERATE REO Ta«LE 

'RNREQi 

tUSRFQ: 

tTSRFQl fi 

tSTRFQi 

X Au,4 MUREQt 

X MQ,4 tMQRfQI 

y 0A,4 tDARFQ! 

'OTREQf 

tOCRFQl 

fMTRFQ: ' 



'^CUETB 



"C^S d, KRASl'N/AF T-;t,17 2'> MAP «,e tjr.^t 
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5"'2 

5R3 

3S5 
556 
i37 
5^8 
5?9 

501 
592 
593 
594 
595 
596 

5 97 
598 
599 

6n0 

6^1 

6 •'■2 
6^3 
6'"t 
6.^5 
6^5 

651? 

6ISB 
6''9 



fl0("3!'7 

113C311 
?0P312 

fi}?311 
i^0l'315 
H0C316 
W0C317 
?0(»3?0 



777777 
777776 
777775 
777774 
777773 
777772 
777771 
777770 
777767 



.(;'iRP|.;SpnfjnE^ CF TaBLF lh = J'IE!E cnoE, HH = nUEUe TRANSFER TABLE AOH, 

M-.OEX I' TO TAR|_£ ALSO = [JUEi'E C"DE 

If"^ SMACAfiLE "EVICES WLY 

ibTHEiJllLfR TAKES ONE JTR iJAiTTJG FOR A SWARAPLF DEVICE AND 

ipijt? it in The iPPRoP'-'i »te °un cufue according to 

iui:EUE T''ANS''EP table «S SPE'"[-FieD BFLOw by the job iJAIT 
iS'^ATE CODE. 

OLFINL X(A,h) 

< Xt.n -A'Q.tJ'A'S 

> 

i''00000 OR"S = INO CORRFSPONDE'vCE TABLES FQ THESE QUEUES 
0U.'"i;P'0 OTSSsH 



INTERNAL AVlTTB 



^aP^'-a *VLQTH! TJFUESt V RN,7 



?02/l"0 

000370 

00(?372' 

000470' 

00C364 • 

00P366' 

000374 ' 

000370' 

000376' 



WS.6 
Tij,6 
ST, 6 



niT.4 

00,4 
MT,4 



AU.4 
M3, 4 
DA, 4 



» XWO -RNQ.CRNS 

XWO -WSQ,Q'<ISS 

y^iO -TSJ.UTSS 

VW1 -STq.aSTS 

» ywo -AUQ.OAus 

» Xtjn -MOQ.QMQS 
' XWO -DAQ.QOAS 

xwn -DTO.QDTS 

xwo -DCQ.oncs 

xwD -MTa,cl^"TS 
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610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 



ICK FTCHFCK+FTMOMP,< 

FXTERMAL QJOR.JORQUE IJOBHUE WIUL CAUSE LOAD OF PROPER SCHDAT 

! nEPENOING ON FTRCl? IN SCHOAT 
IFM FTSWAP.< 
EXTERNAL XJ05 
>> 
IFE FTCHFCK+FTMONP,< 

INTERNAL JOBRUF 

000321 0000('0 000000 J09QUE( 7 JJOBS TO BE REOUEUED ON CLOCK INTERRUPT 

INTERNAL aJOR 

000322 Mmm 000000 OJDRI I SNUMRER OF JOBS n^EFOING TRANSFERS AT OTHER THAN CLOCK I EVEL 

IFN FTSWAP,< 

000323 ?000"i0 0005)00 XJOB! ^ IWUMBER OF jr^BS NEEDING CORE EXPANSION BY SWAPOUT-IN 

INTERNAL XJOR 
> 



629 



scHEne 



6,30 
6 51 
5,^2 
633 
634 
635 
636 
637 
638 
639 
6ie 
6')1 
642 
643 
644 
645 
646 

64 7 
548 
649 

651 
6 '3 2 
6=53 
6'54 
6 "5 5 
656 
657 
658 

65 9 
660 
561 
562 
663 
664 
655 
566 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
67 9 
580 
681 
682 



■ SCHFDULING ALGORITriM FOR SWAHPI^!G SYSTEM ( lZ/5;> )( BUSBQUGHS DISK) 
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INTERNAL QSTOP.QTIME.SSCAM.QrMW 
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C00324 
5"0e3?4 

!?0f3?5 
5:003?6 
!'003?6 
!»0f"3?7 
00C330 
000330 
000331 
000332 
?00332 
000333 



000334 
000334 
000335 



000340 
000340 
000341 
000342 
000342 
0003'a3 
000344 
000345 
000346 
000346 
000347 
000350 



400000 
400P"I0 
4000C0 



;BEGINMMG Or OUFUES FIXED aUEUE DISCIPLINE 
I END OF OUFUFS " " " 



400K.1H 
777777 



400070 
777777 



400Bi''0 
777777 



400a?i0 

000414 ' 



0030:'6 



000205' BQFIX=QFIX 
000205' EQFIX = onx + lP0 
000164' bQLINKsQlINK 
000164' EUL I'JKsQl INK + 1P0 
000172' RUJ3I(? = QJSIZ 
000172' EQJSI!' = QJSIH*1B0 

OtFINt TTAR(FCTN,OUEUE, QUANT) 

< EXP FCTN 
XWO OUANT, -QUEUE 

> 

DEFINE PTTAB(FCTn, QUEUE. OUANT) 

< EXP FCTN 
XWD TUaNT, QUEUE 

> 

ONIILW: TTAB EOF I X , NULQ , -1 
000205' EXP FQFIX 

777763 XWD -1 ,-NULQ 

QSTOPSQSTOPW! TTAB EQF I X , STOPQ , -1 
000205' FXP EQFIX 

777762 XWD -1 ,-STnpQ 

OCMW; TTAB EQFIX,CMQ,-1 
000205' EXP EQFIX 

777756 XWD -1 , -CMQ 

QRWWI PTTAP EQjSIE.QSTAB.QQSTAB 
000172' EXP EQJSIZ 

000404' XWD QQSTA8 iQSTAB 

IWHICH ARE NOT IN SOME WAIT STATE BELOW, ENTER PROCESSOR 
IQS AT END AND GET QUANT, TIME ACCORDING TO THEIR SI?E 



INULL queue JOB NO, NOT ASSIGNED 

IUNRUNABlE jobs to end OF STOPQ 
ICOMMANO WAIT TILL JOB IN COF^E 
(JUST RUNABLE JOBS 



000205' 
777761 



000336 

000336 0000'«0 000205' 

000337 0B00<16 777761 



QWSW! 



OTSW; 



Qioww: 



I 10 WAIT SAT. (EXCEPT TTY) 



TTAB BQFIX.PQl.QOTTY 

FXP BQFIX 

XWO OQTTY .-PQl 
iENTER FRONT OF PROCESSOR OS AND GET QUANT 
jACCORniNG TO JOB Sl?E 
TTAB BQFIX, P01,QQTTY 

EXP BQFIX 

XWO QQTTY 



4000"0 
777777 

401^070 
777777 
400080 
777777 

400000 
777777 



000205' 
777756 



000205 
777765 

000205' QAUW 
777774 



TTAB EQFIX, I0WQ,-1 
FXP EQFIX 
XWO -1 ,-IO'''0 
QTIOWWI TTAB EQFIX, TI0WQ,-1 
EXP EQFIX 
XWO -1 ,-Tinwn 

TTAB EnFlX,AUQ,-l,» 

XWO -i.-Aun 



TIME 
ITTY 10 WAIT SATlSFIEDtENTER FRONT OF PQl) 
.-PQl 
IIOW<EXDEPT TTY) HELD IN lOWQ 



000205' 
777773 



OMQWi 



ODAW! 



TTAB E0FIX,M0Q,-1 
EXP EQFIX 
XWD -1 .-MQQ 

TTAB E0FIX,DAQ,-1 



ITTY low HELD IN TIOWQ 

EXP EOnx 
IHON, Q(OISK) WAIT 

IDEV, ALLOC, (DISK) 



SCHEOB 
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683 


000350 


400000 


000205' 


684 


00(5351 


777777 


777772 


685 


000352 






686 


000352 


400000 


000205' 


687 


000353 


777777 


777770 


688 


000354 






689 


000354 


400000 


000205' 


690 


000355 


777777 


777775 


691 


000356 






692 


000356 


400000 


000205' 


693 


000357 


777777 


777771 


694 


000360 






695 


000360 


400000 


000205' 


696 


000361 


777777 


777767 


697 


000362 






698 


000362 


4 00 000 


000205' 


699 


000363 


777777 


777764 



EXP EQFIX 
xwn -1 ,-OAn 

ODCW! TTAB EtOFlXiDCO.-l 
EXP EQFIX 
XWO -1 ,-OCO 

QSTWl TTAB E0FIX,STQ,-1 
EXP EQFIX 
XWD -1 ,-STO 

QDTW! TTAB EQFIXiDTQ.-l 
FXP EQFIX 
XWO -1 .-DTT 

QMTW! TTAB EQFIX, MTQ,-1 
EXP EQFIX 
XWO -1 ,-MTO 

QSLPW! TTAB EQFIX, SLP3i-l 
EXP EQFIX 
XWD -1 ,-SlPQ 



IDATA CONTROL WAIT 



ISVST TAPE 



(DEC TAPE 



IMAG TAPE 



(SLEEP UUO 
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m 








; IRAMbUAT IIK 


TABLE FRO" WAIT 


STATE TO SATISFIED STATE 


7f2 








ino MUT 


RESET OUANTuv RUN' Tp 


"E 


774 




777777 


777777 


QUS[) = -1 








7 J5 


r">3?36't 






IMS ! 


TTAB 


Br3F|X,PQl,Q0S0 


ISTaRT mON, CI(OISK) AT F 


7;' 6 


C05!3)S4 


00f<0 


000205' 






EXP 9QFIX 




7f7 


C0fl3fr5 


777777 


■'77761 






XWD DQSn 


,-PQl 


7,518 


C0!?366 






QDAS! 


TTAB 


BtJFIXiPOl.onSO 


lOfV, ALLOC, (DISK) , . , 


7719 


!'0I?366 


000as'0 


000205' 






FXP RQFIX 




7ia 


f0('367 


777777 


777761 






XWD IQSn 


r-PQl 


7M 


701^370 






mDCS! 


TTAB 


BOFlX.PDl.onSD 


id«ta control,.. 


712 


000370 


3000f;0 


000205' 






EXP ?QFIX 




713 


00(?371 


777777 


777761 






xwo fjQsn 


,-PQl 


714 


?|0(?!372 






OSTS! 


TTAB 


SOFIX.POI.QQSD 


ISYST TAPE 


715 


!"0Pi372 


000000 


00S205' 






EXP RQFIX 




716 


00^373 


777777 


777761 






XWD QQSn 


i-PQl 


717 


?0I?374 






QDTS! 


TTAB 


BOFix.pni.onso 


lOfC TAPE 


7ia 


H00374 


000000 


00227.5' 






FXP RQFIX 




719 


000375 


777777 


777761 






XWD nasD 


i-PQl 


7?0 


000376 






nuTSs 


TTAB 


BOF IX,P01, 3f5sn 


IM4G TAPE 


721 


000376 


.'00000 


300205' 






FXP RQFIX 




7?2 


!»00377 


777777 


777761 






x;<n 1QSD 


i-PQl 


7?3 


0004710 






I3AIJS; 


TTAB 


BQFIX,P01,3QSD 


lALTFR UFD 


7?4 


0004!' <1 


000000 


0^0205' 






EXP RQFIX 




7?5 


000401 


777777 


777761 






XWD G Q S D 


f-PQl 


726 


0004^2 






OTIme: 


PTTaP 


EQl.INK.QTTAB.QO 


sta'' ihdve job to low 


7?7 


000402 


400000 


000164' 






FXP FQLIWK 




728 


000403 


000414' 


000410' 






XWD 0QSTA8 


■QTTAB 


7?9 










il^HEM 


lUAJ^T, TIME EXCEEDED AND RESET OUANT, TIME 
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7:1 fl 
731 
732 
733 
734 
735 
776 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
7';0 
751 
752 
753 
754 
755 
756 



,t\TFH PPOHESSOR OS iCCORDIN", TO JOB SIZE 
C!0f4?4 feeziM 777761 QbTAn; Yk,n 4, -Pal jPBl IF SI?E .LE. 4K 
PI0?4f5 f00030 777760 VKD »D16,-PQ3 |P^2 IF 4K .L. SIZE .UE. 16K 

r'0?4?6 ■70e4f0 777757 Xk,n tD256.-PQ3 iPt)3 IF 16 ,L, SIZE 

00e4C7 ''000M0 000^70 7 



("00410 777761 

000411 777760 

000412 777757 

000413 000000 



000414 
00P4d 4 
000415 
000416 
000417 



5! 
0000?0 
0000''0 
?000,^0 



777760 
777757 
777760 
000000 



000£36 
0O:'170 
000170 
0000?0 



,PUT JOB OOUM A Q IF EXCEEDS QUAMT, 
OTTAp; VWD -pni,-PQ2 

xwn -pQ2,-P03 



TIME 



xwn -PQ3,-PQ? 



IBACK TO POS TO COMPETE WITH lOWS JOBS 



.QUANTUM TABLES 



000006 fJQSD = 6 iTEMTH SEC, II^ITIA;. IUANiT. FOR SHAR, DFV, WAITERS 
000006 '!(JTTV = 6 jTENiTH SEC, INITIAL •lUANT. FOR TTY lOWS 

, OJANT. TIMES ACCORfilMG TO oROCESSOR 0: 



INTERNAL RNOUNT 



riNOUvT ! 
OQSTAB! 



FXP 'D30 
EXP ?«tO60 
FXP ?»tD60 



iPOli ONE HALF SECOND 
IPQ2) Two SECONDS 
IPQ3! Two SECONDS 
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757 








758 








759 


000420 






760 


("00420 


777755 


000232' 


761 


000421 


777773 


000231' 


762 


000422 


777772 


000231' 


763 


000423 


777774 


000231' 


764 


000424 


777770 


000231' 


765 


000425 


777767 


000231' 


766 


000426 


777775 


000231' 


767 


000427 


777771 


000231' 


768 


000430 


777761 


000232' 


769 


000431 


777760 


000232' 


770 


000432 


777757 


000232' 


771 


000433 


000000 


000000 


772 


000434 


000000 


000000 


773 


000435 


000000 


000000 


774 








775 


000435 






776 


000436 


777762 


000232' 


777 


000437 


777764 


000232' 


778 


000440 


777771 


000235' 


779 


000441 


777775 


000235' 


780 


000442 


777767 


000235' 


781 


000443 


777770 


000235' 


782 


000444 


777774 


000235' 


783 


000445 


777772 


000235' 


784 


000446 


777773 


000235' 


785 


000447 


777765 


000232' 


786 


000450 


777757 


000241' 


787 


000451 


777771 


000231' 


788 


000452 


777775 


000231' 


789 


000453 


777767 


000231' 


790 


000454 


777770 


000231' 


791 


000455 


777774 


000231' 


792 


000455 


777772 


000231' 


793 


000457 


777773 


000231' 


794 


000460 


777760 


000241' 


795 


000461 


777761 


000241' 


795 


000462 


000000 


000000 


797 


000463 


000000 


000000 


798 


000464 


000000 


000000 


799 








3f0 









IFN nSWAP,< 
INTERNAL ISCAN.OSCAN 



ISCAN! 



SSCAn: 



OSCAN! 



iSCAN FOR INPUT 
XHD -CMQ.QFOR 
XtvD -MOQ.QFORl 
-QAQ.QFORl 
-AUQ.UFORl 
-OCQ.QFORl 
-MTQ.QFORl 
-STO.QFORl 
-DTQ.QFORl 
-POl.QFOR 
-P02,QFOR 
-PQ3,QF0R 



yWD 

X-WO 

Xt«D 

XWD 

XWD 

XWD 

XWO 

XWD 

XWD 

I 

2 

? 



iSCAN 

XWD -S 
XWD 

XWD -D 

XWD -S 

XWO -M 

xwn -0 

XWD -A 

XWD -D 

XWD -M 

xwn -T 



(MONITOR COMMAND WHICH NEEDS CORE IMAGE IN CORE 
ILOCK FOR 1ST JOBS IN SHAR. QEV OUFUES 



ISCAN PROCESSOR AS SCHEDULER DOES 



XWD 

XWD 

XWD 

XWD 

XWD 

XWD 

XWD -D 

XWD -M 

XWD -P 

XWD -P 

7 



(PATCH SPACE 

IFINAL ?ERO TO FLAG END 

FOR OUTPUT 

TOPQ.OFOR lUNRUNASLE JOSS FIRST 

-SLPQ.OFOR 
TQ.aOAKl lANY SHAR. DEV. WAITERS MORE THAN 1 DEEP 
TQ.QBAKl 
TQ.QBAKl 
CQ.QBAKl 
UQ.OBAKl 
AQiQBAKl 
OQ.QBAKl 
lOWQiQFOR 
Oi.QBAK 
TQ.QFORl 
TQ.QFORl 
TQ.QFORl 
CQ.OFORl 
Ua.QFORl 
AQ.QFORl 
QQ.QFORl 
Q2,CIBAK 
Ql.QBAK 



ITTY low 



INOW scan FIRST JOB IN QUEUES 



(PATCH SPACE 

IFINAL ZERO TQ FLAG END 



SCHEHB 
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8?11 
B-iZ 
833 
8^4 
8Pi5 

8 3 7 
8P8 
8P!9 
810 
811 
812 
813 
314 
815 
816 
817 
81S 
819 

320 
621 
322 
323 
824 
825 
326 
827 
828 
329 
830 
831 
832 
833 
834 
835 
336 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 



000006 
000002 
000001 
000004 



SUBTTL SWAP R, KRASIN/AF TS4.34 03 FEB 69 V406 

SWAPPER CALLED EVERY CLOCK TIC. 

SINCE MOST OPERATIONS STARTED BY THE SWAPPER REQUIRE SEVERAL 

TICS TO RUN TO COMPLETION, "SEVERAL FLAGS ( F J K) I SH , F I T , FORCE 

ARE USED TO "REMEMBER" PREVIOUS STATES, 

THE BASIC ALGORITHM! 

IS CORE SHUFFLER WAITING FOP 10 TO FIMISH FOR SOME JOB? 

YES--TRY AGAIN TO SHUFFLEtWHEN 10 STOPS) 
IS CORE SHUFFLER STILL WAITING FOR 10 TO FINISH? 

YES--RETURN AND DO NOTHING 
IS SWAPPER STILL BUSY? 

YES--RETURN AMD DO MOTHING 
SCAN OS FOR 1ST JOB OUT OF TORE, 

IF NONE--RFTURM 
AI 
IF ONE--WILL LOW(HIGM) SEG FIT IN LARGEST HOLE IN CORE? 

YES--START INPUT AND RETURN 

NO--IS TOTAL FREE CORF(CORTAL) ENOUGH TO ACCOMMODATE LOW(HIGH) SEG? 

YES — CALL CORE SHUFFLER 

IS ShUFFLFR WAITING FOR 10 TO STOP? 
YES--RETURN AND DO NOTHING 
Nn--GO TO A! 
NO--"REMBER" THIS JOB FOR INPUT AND LOOK FOR OUTPUti 
ANY JOBS WAITING TO XPAND CORE BY SWAP OUT/IN? 
YES--OUTPUT ONE AND RETURN 

NO--SCAN OS BACKWARD FOR JOB IN CORE WHOSE PROTECT TIME 
(SET ON INPUT) HAS GONE TO 0. 
IF NONE--RETURN 

IF ONE--IS IT SWAPPABLEtNO ACTIVE 10 AND NOT CURRENT JOB)? 
YES--OUTPUT HIGH SEEdF ANY AND NOT ON DISK) THEN LOW SEGMENT 
NO--SET SWP BIT(SO SCHEDULER WILL NOT RUN), 10 WILL CONTINUE 
IN LOW SEGMENT AS LONG AS IT CAN 
10 ROUTINES NO LONGER STOP IF SWP SET, JUST SHF ) 

EXTERNAL JBTSTS 

EXTERNAL B IGHOL, CORTAL , ANYDEV , JBTADR, JBTSWP, KCOREt , TRYSWP 

EXTERNAL IMGOUT, IMG IN, FINISH, FIT, FORCE 

EXTERNAL OERRQR , CORGET , JBTOAT , JOBDPG , JOBDPO, JOBPC 

EXTERNAL JRTOAT , SHFWAT , CHKSHF 

EXTERNAL FULCNT,ERRPNT,EXCALP,PCST0P,PC0RSH,VIRTAL 

INTERNAL SWAP 
INTERNAL XPAND, FT2REL 

T=DEVDAT 

T1=TAC1 

T2=TAC 

J=ITEM 

,ALL device dependent CODE MARKED WITH A "•" 



scHEne 


- SCHEOULINC iLGDRlTHs- F 




SWAP f! , 


i<RASIN/AF TS4,3 


:i=;2 


f<0!»465 


332i)C-.0 


003000 


'J'53 








854 


f"aP466 


260140 


000000 


■1555 








;i'!6 


fl0P:467 


3360.'ia 


000465' 


857 


P10(?47a 


3320f^0 


001340' 


858 


(»0«'471 


263140 


000000 


S59 


P)0^472 


402000 


00'3141' 


afi0 


000473 


336200 


0000013 


861 


000474 


254000 


000547' 


862 


000475 


321200 


000537' 


863 


000476 


332000 


001342' 


861 


000477 


254000 


000526' 


865 


000500 






366 








867 








868 


000500 


260140 


000000 


869 


000501 


254000 


000551' 


870 








871 








872 








873 








874 








875 








876 


000502 


135300 


000000 


877 


("00503 


135l"0 


000000 


878 


000504 


27411^0 


0000516 


379 








880 








HSl 








as2 








383 








384 








aes 








Sfl6 








8 = 7 


000505 


333000 


000002 


888 


000506 


272100 


000000 


889 








390 


000507 


260140 


001034' 


891 








892 


000510 


135300 


000000 


893 








894 


000511 


2203i'0 


■^00000 


855 


000512 


2703«0 


0000[;i0 


896 


000513 


5063''4 


000133' 


897 


000514 


20t»344 


00-»000 



SWAP! SKIPr SHFWAT 

OUSHJ PDP.CHKSMF 



UT 



"^KIPN SHFWAT 
•iKIPE safari 
POPJ POP, 
SET?" iNFl 
SKIP*' J.FINI 
JRST SWP2 
JUMPL J.FINO 
SKIPE SERA 
JRST INE9R 

FININ0! iHER 

IFN FT2RFL.< 

EXTERN FININ 
PUSHJ PDP.FIMlM 
JRST FITl 



LDB T.IMGIN 
LDFI TI.IMGOUT 
SUP T1,T 
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IIS CORE SHUFFLER WAITING FOR ID TO STOP 
I FOR SOME JOB? 

lYES. CALL CORE SHUFFLER TO SEE IF 
I 10 STOPPED YET 
lis SHUFFLER STILL WAITIMG? 

K1NO--IS SWAP SERV, ROUT. STILL BUSY WITu LAST JOB? 
I»YES--RETURN 
l»»« EXPERIMENTAL ••• 
INO--ANY IN/OUTPUT TO FINISH? 
INO- 

IYES--INPUT OR OUTPUT? 
I INPUT, ANY INPUT ERRORS? 
lYES 
E IF MOTWING TO SWAP IN(HIGH OR LOW SEG EXPANDING FRnM 01 



ACE 



SKIPLE Tl 
ADHM Tl.VIRTAL 

PUSHJ PDP.HERSWP 
LDP T.PCORS? 



IMUL T.PROT 
ADO T,PRnT0 
MRLH T,JPTSWP(J) 
«OVE JDAT, JBTDAT( J) 



IIS THERE A HIGH SEG WHICH MUST BE SWAPPED IN? 

lYES. fiO SWAP IT IN(J SET TO HIGH SEG NO. JOB * ]>■> INPJOB) 

I NQ, EITHER HIGH SEG ALREADY IN FOR ANOTHER USER 

I OR THERE IS NONEi J STILL JOB NO, (IE LOW SEG) 

! OR J IS HIGH SEC WHICH EXPANOEO FROM NOTHI NG( XdaNDH) 

I IN WHICH CASE IT HAS NO DISK SPACE AND DIOLING ACS 

i ANH SETTING PROTECT TIME WON'T MATTER EITHER, 

INEW CORE SI?E 

lOLD SIEE WHEN ON DISK 

lOLO-NEW'DECREASE 

1 HAS USER DECREASED VIRTUAL MEMORY FROM M TO N(N GR 0) 

I WHILE OUT ON DISK(R,RUN.GET,KJOB) TO 140 WORDS? 

1 CORE COMMAND ALWAYS FORCES SWAP IN BEFORE 

I CORE REASSIGNMENT SO NOT IN THIS CATEGORY 

I FRAGMENTED USER TOO HARD TO PARTIALLY RECLAIM DISK SP 

I ON REDUCTION WHICH DOES NOT GO TO 

IDECREASFD? 

lYES, NOW INCREASE VIRTUAL MEMORY AVAILABLE BY 

I AMOUNT OF DECREASE IN HIGH OR LOW SEG 

JRETURN LOW SEG DISK SPACE. SET IMGOUT.ImGIN 

I AND SWP!SHF(JBTSTS) TO 

ICOMPUTE AND SET IN CORE IN CORE PROTECT TIME FROM 

I SI?E OF JOBdK BLOCKS-l) 

lADD VARIABLE AMOUNT DEPENDING ON CORE SiHE 

lAOD FIXED AMOUNT INDEPENDENT OF CORE S1?E 



ISETUP LOW SEG PROTECT I ON , RELOCAT I ON 



SCHEHB 



■ SCHFDULING ALGORITHM FQR , P wjpp | >.(; SVSTE" (IK/IS?) )( BURROUGHS DISK) 
''WAP R, KRASIN/AF TS4,74 i>i ^Tb 6° Vti!6 
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ti<59 
930 
9!»1 
9^2 
9('3 
9("l 
973 
9P6 
907 
9?8 
9?I9 
9]0 
911 
912 
913 
914 
915 
916 



IFV JDAT-p')OG,< 



C0C515 
00051 6 
C00517 
007I520 
B00521 
000522 
000523 
000524 
000525 

00I?526 

("00527 

000530 
000531 
000532 



2B.'?3f7 
6033'/0 
?540;?0 
5503M7 
?753?'7 
2l30f!0 
2723i37 
202347 
2540P10 

402000 
200344 

260140 
265040 
516570 



01^000 

000546 ' 

000000 

000000 

01^0006 

000000 

000520 ' 

000546 ' 

000473' 
000172' 

000000 

000000 
150100 



INERR! 



"OVE pBOn. JBTATRt J) 

i^OVE T. JCBPCl J-iAT) 

TL'"E T.USRMOn 

JRST SWPl 

4RR2 Ti jnBOPGI JDAT) 

SUB! T,(PROG) 

"OVNS T 

ADDM T. JOBDPDX JOAT) 

MDVEM PRCG.JOBOPr.(JOAT) 

JRST SWPl 

SETEM FIMSh 

MOVE PROG, JBTA^RCJ) 



IFK' 



PROG-jnAT,<MlVF: JDAT.JBTOAK J)> 



;J0B STOPPED IN EXEC MOOF? 

ITFST PD FLAG 

(NO 

lYFS. ADJUST PROG AND POP IN DUMP AC AREA 

)0L0 RELOC-NEW RELOC 

rNFW RELOC-OLD RELOC 

lAOjusT nuMp POP 

ISTORE NEW AC PROG 



ICLEAR FIMSH FLAG SO SWAPPING CAN CONTINUE 
;SETUP RELOC, PROTECTION FOR HIGH OR LOW sEG: 



duSHJ P0P,KC0RE1 

JSP TAC.FRRPnT 

ASCI? /SWAP READ ERRiR/ 



IRETURN CORE 

IPRIKT ON USER CONSOLE 



917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 



000533 
000534 
000535 
000536 

000537 
000540 
000641 



000544 
000545 



000546 
000547 
000550 
000551 
000552 



512130 
426452 
0000',10 
254^00 
213000 
332000 
254000 



142100 
247644 

000000 

000000 

000004 

001342' 

000575' 



000542 200344 000527' 



000543 260140 000530' 



260140 
254000 



402000 
332200 
254000 
332200 
254000 



000000 

000662' 



FINOUT! 



JRST PCSTOP 
"OVnS J 
SKIPF SERA 
JRST SWPREC 



MOVE PROG, JBTADRI J) 
IFN PROG-JOAT,< 

MOVE JDAT, JBTDAT(J) 
> 

pushj pdp,kcoRei 



ACK IN 

IFN FT2REL.< 

EXTERN FINOT 
PUShJ PDP.FInOT 
JRST FORCEL 



003526' SWPl! 
000000 SWP2! 
000663' 
000000 FIT0i 
000561' 



SETBM FINISH 
SKIPE J, FORCE 
JRST FORCEl 
SKIPE J. FIT 
JRST FITl 



ISTQP JOB ANH FORCE RESCHEDULING 
IFINISH OUTPUT, -F1NISH=J0B NO. 
lANY ERRORS 

lYFS, RECORD ERROR AND TRY AGAIN, 
I IN A DIFFERENT PLACE ON DISK 
IXWD PROTECT, , RELOC. FOR LOW SEG 

IJOB DATA AREA 

(RETURN CORE FOR LOW OR HIGH SEG JUST SWAPPED OUT 

I EVEN IF 

) ANOTHER JOB STARTED TO SHARE HIGH SEG nURiNG 

1 SWAP OUT (GET) SINCE JOB IS MARKED WITH 

I SWP BIT ON AND CANNOT RUN UNTIL HIGH SFG IS SWAPPED B 



MS THIS A HIGH SEG WHICH WAS JUST SWAPPED OUT? 

lYES, J SET TO LOW SEG NO, GO TRY SWAP IT OUT 

I NO, THIS WAS A LOW SEG, ALL SWAPPING FoR THIS USER 
I IS FINISHEO. 

ICLEAR FINISH FLAG 

IWAITI^JG FOR JOB TO BECOME SWAPPABLE? 

lYES 

INO" WAITING TO FIT JOB IN CORE? 

lYES 



SCHEOB 



- SCHEDULING ALGORITHM FOR SWiPPIMG SYSTEM ( li3/5f! )( BURROUGHS DISK) 
SWAP R. KRASIM/AF TS'1,34 BJ FEB 69 V4K<, 
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944 




945 


1^00553 


946 


5:00554 


947 


000555 


948 


000556 


949 


000557 


950 




951 




952 


000560 


953 




954 


000561 


955 


000562 


956 




957 




958 




959 




960 




961 




962 


000563 


963 




964 




965 




966 




967 




968 


000564 


969 




970 


000565 


971 




972 




973 




974 


000565 


975 




976 




977 


000567 


978 




979 


000570 


9B0 




9fll 




982 




983 


000571 


934 


000572 


985 


000573 


986 


000574 



201240 000420' 

265040 000225' 

254000 000606' 

200304 000221' 

607370 302000 



2540,»2 0000?0 



.SCAN FOR INPUT 



KOVEI nAT.ISCAN 
JSP TAC.OSCA'a 
JRST CHKXP^J 
MOVE T.JPTSTS(J) 
TLNN T.SWP 



JRST (TACl) 



202200 000551' FITll MOVE" J. FIT 
135640 000502' LDP ACl.IMGIM 

IFE FT2HEL.< 

CAMLE ACl.CORTAL 
> 
IFN F'r2HEL.< 

EXTERN FITSIZ 
260140 000iJ0a PUSHJ POP, FITSI£ 



2540^-0 000610' 
717640 0000C10 



JRST SCNOUT 
CAMG ACI.BIGHOL 



2540^0 000772' JRST SWAP! 

IFN FT2REL,< 

EXTERN FRECRl.HOLEE 

336zfe 0000B0 SKiP'>; holef 



260140 000000 



260140 000466' 

336030 000467' 

254000 000551' 

263140 000000 



PUShJ PDP.FRECRl 



PUShJ PDP.CHKSHF 
SKIPN SHFWAT 
JRST FIT!^ 
POPJ PDP, 



INO INPUT To DO--CK FOR EXPANDING JOBS 
ITMIS JOP nuT OF CORF? 

ISWP ON IF HIGH SEG SWAPPED OUT FDR THIS USER 
) OR BOTH SEGS SWAPPED OUT 

INO--CONTINUE SCAN 

(REMEMBER JOB(OR HIGH SEG) TRYING TO FIT IN 
ICORE S12E NEEDED FOR THIS SEGIK IF LOW t;EG 
I OR HIGH SEG WITH UWP OFF ALREADY IN CORE) 

IWILL LOW SEG FIT IN FREE+DORMANT CORE? 



(COMPUTE AMOUNT OF CORE NEEDED TO BRING TN 

I 1. THIS JOBS LOW SEC AND HIGH SEG 

I 2. THIS JOBS LOW SEGIHIGH ALREADY IN 0" NONE) 

J 3. THIS HIGH SEG BECAUSE LOW SEG ALREAnY IN 

(WILL LOW SEG FIT IN FREE + DORMANT* I OLE CoRE? 

JNO.WILL NOT FIT EVEN IF ALL DORMANT SEGS DELETED 

I AC1=T0TAL CORE NEEDEn(IN K) 

lYES, WILL THIS SEG FIT IN BIGGESl' HOLE OE FREE CORE 

( WITHOUT DELETEING ANY DORMANT OR IDLE SEGS? 

1 (ACl RESTORED TO SHE FOR JUST THIS LOW OR HIGH SEG) 

lYES, GO SWAP IN THIS LOW OR HIGH SEG 



INO, ARE THERE ANY HOLES IN CORE WHICH TuE SHUFFLER 

I COULD ELIMINATE(N0T COUNTING ONE AT T0=)? 

INO, GO DELETE ONE DORMANT SEG IN CORE 

I AND ALWAYS SKIP RETURNCTHERE MUST BE AT LEAST 

I ONEi OTHERWISE CORTAL = B I GHOL ) MON I TOR ERROR IF NONE 

lYES, CALL CORE SHUFFLER TO MOVE ONE SEG DOWN 

ISHUFFLEH WAITING FOR 10 TO STOP? 

INO, SEE IE JOB WILL FIT NOW. 

lYES. RETURN AND WAIT TILL 10 STOPS 



SCHEDB 



9a7 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

100i 

1002 

1003 

1004 

1005 

1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 



- SCHFDULING ALGORITHM FOR SWAPPIMG SYSTEM (10/50 )( BURROUGHS DISK) 
SWAP R, KRASIN/AF TS4,34 03 FEB 69 V406 
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000575 
000576 
000577 
000600 
000601 
000602 
000603 
000604 



000606 
000607 



000610 
000611 

000612 
000613 
000614 
000615 

000616 
000617 
000620 

000621 
000622 
000623 



200040 
436040 
135040 
213000 
272040 
135040 
661040 
272040 



000605 254000 



337000 
263140 



337000 
254000 

200200 
205300 
6163^4 
367200 

327200 
402000 
265240 

370000 
412304 
254000 



EXTERN VIRTALiSwPERC 



001342' 

000000 

000503' 

000001 

000506' 

000577' 

000001 

000576' 

0006701 



SWPRECl MOVE 
lORM 
LDH 
MOVNS 
ADDM 
LDB 
TUO 
ADOM 



TAG. SERA 

TAC.SWPERC 

TAC.IMGOUT 

TAG 

TAC.VIRTAL 

TAG, IMGOUT 

TAC,1 

TAC.SWPERC 



JRST SWAPO 



lERROR FLAGS 

|S*VE FOR POSTERITY 

IDECREASE TOTAL AMOUMT 

lOF VIRTUAL CORE IN THE MACHINE 

(BY THE AMOUMT BEING GIVEN UP 



IGO TRY AGAIM 



;N0 INPUT TO D0> CHECK FOR EXPANDING JOBS 



000323' CHKXPNl SKIPO XJOB 
000000 POPJ POP 



000323 
000624 

000000 
000001 
000556' 
000614' 

000621' 
000323' 
000176' 

000323' 
000614' 
000655' 



lANY JOBS TO EXPAND? 

INO, RETURN FROM SWAPPER, NOTHING TO INPUT OR OUTPUT 
I YES, FALL INTO SCNOUT WHICH WILL SWAP nUT EXPANDING 
I JOB SINCE THERE IS ONE 
(INPUT TO 00. CHECK TO SEF IF ANY JOBS JUST HAPPEN TO WANT TO EXPAND 

EXTERN HIGHJB,JBTSTS,ERROR,MAXSl?,MAXJBN,SUMCOR 



' SCNOUTi SKIPG XJOB 
' JRST SrNjOB 

MOVE J.HIOHJB 
MOVSI T.JXPN 
TDNN T,JRTSTS(J) 
SOJG J, .-1 
IFN FTRCHK.< 
JUMPG J.SCNOK 
SETEM XJOB 
JSP DAT. ERROR 



> 

SCNOKI 



SOS XJOB 

ANOCAM T,JBTSTS(J) 

JRST FORCE0 



lANY JOBS WAITING TO EXPAND? 

INO, SCAN ALL JOBS IN PRIORITY ORDER LOOKING 

I FOR ONE TO SWAP OUT 

lYES, START WITH HIGHEST JOB NUMBER ASSIGNED 

•SETUP JOB EXPANDED BIT 

I IS THIS JOB EXPANDING? 

JNO, KEEP LOOKING 



ICLEAR XJOB SO MESSAGE WILL PRINT 
lERROR IF NONE FOUND 

(DECREMENT COUNT OF EXPANDING JOBS 
ICLEAR EXPAND BIT IN JOB STATUS WORD 
IGO TRY TO SWAP JOB OUT 



scHEns 



I.'?2 
1^73 
1<124 
l.)?5 
lil?6 
1??7 
10?8 
10?9 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
10 4 
1041 
1042 
1043 
5044 
1^45 
1046 

104 7 
1048 
1049 
1050 
1051 
1052 
1053 
1054 

105 5 
1056 
1057 
1058 
1059 
1060 
1061 
1062 



- SrHfDULING SLGORIT-Jh' roR ^.AiCP\'i(i SYSTE-^ ( 10/53! )( SUR'^OUGHS DISK) 
■iWAP R. KHASIK/AT TS4,34 .•"3 f"rH 6° V406 
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!1006?4 
1^00625 
P130626 
000627 
000630 
000631 
000632 
000633 
000634 
000635 



000637 
:'0P'640 



5543^4 



000642 
000643 



2403?0 
2713?0 



;S'4Ki ro" JC'' TO OUraUT IN ORDFR TO MAKE ROOM FOR JOB TO COME IN 

Jbl^EdN K) OEEDFD TO r.ET THIS U?ER IN CORE IS IN ACKFITSIZ) 

iJUST L0\- ^^tr, c;i7E ir vjo HiGw OR HIGH ALREADY IN, JUST HIGH IF LOW ALREATY IN, 

(OR SUSt IF HOTH J-UST BE SWApoEH IN 



?003'0 00.^000 SCVJOB! MOVE T.CORTal 

202370 000000 

41)20'0 000000 

201240 000436' 

265040 0002251 

2540-00 000714' 

3162?fl 000561' 

2540C12 000030 

3353''4 000672' 

335004 000513' 



"OVE« T.SUMCOR 
SETEM MAXSIZ 
"OVEI OAT.OSCAN 
JSP TACOSCAM 
JRST NOFiT 
CAMN J, FIT 
JRSTtTACl ) 
SKIPGE T,JBTSTS(J) 
SKIPGE JRTSWP<J) 



'00636 6033/0 012000 



00i1000 

54 2' 



000641 3223'2 000000 



777766 

000001 



000644 260140 000000 



TLNE T,l^?l«P + SWP 



jRST (TACH 
MLR2 T,JPTADR(J) 
JUMPE T, (T4C1) 



4SH T,-12 
AODI T,l 
IFN FT2REL.< 

FXTERN F0RSI2 
PUShJ POPiFORSlZ 



000645 
000646 
000647 
000650 
000651 
000652 
000653 
000654 



317300 
254000 
202300 
202200 
2723^0 
313640 
254002 
200200 



000626' 

000651' 

000645' 

000000 

000625' F0RCE2! 

000651' 

000000 

000650' 



CAMG T.MAXSI? 
JHST F0RCE2 
i^OVEM T.NiAXSlE 
MOVE" J.MAXjSN 
4DDM TiSUMCOR 
CA^^LF ACl.SUMCOR 
JRST (TACI) 
MOVE JiMAXJBN 



MNITIALIBE FREE CORE COUNTER 

ICLEAR SIZE OF LARGEST JOB 

ISCAN ALL JORS RANKED IN PRIORITY TO BE SWAPPED OUT 

INtl MORE JOBS LEFT, CANNOT FIT JOB IN CORE 

IIS THIS JOB WE ARE TRYING TO FIT IN? 

lYES, GO FIND NEXT JOB TO OUTPUT 

IJOe RUN BIT STILL ONCJDR STILL WANT TO RUN)? 

)YFS, IS PROTECT TIME STILL LEFT? 

I PROTECT TIME IS DECREMENTED ONLY WHEN 

I A JOB IS RUNABLE, SO LOOK AT IT 

I ONLY IF RUN BIT STILL ON 

INO, IS THIS JOB NOT TO BE SWAPPED OR ALREADY SWAPPED? 

I (DISPLAY. REAL TIME)? 

lYFS. CONTINUE SCAN TO FIND ANOTHER 

IPICK UP SI2E OF JOB 

(CONTINUE Scan if not in core (high seg already swapped 

) out for This user if no low seg) 
•convert to ik blocks 



•INCREASE Sl?E(T) BY HIGH SEG IF THIS JOR 

J IS ONLY ONE IN CORE USING HIGH SFG(J= jOB # STILL) 

JLARGEST SO FAR? 

INO 

lYES, SAVE SIZE 

iand job number 

(add to total 

ifouno e^iough core for job to be fit in? 

ino. look for more 

lyes, swap out largest 



SCHEDB - SCHFOUlING 4LG0RITHX FDR SWAPPING S VSTEm { 10/5;" ) ( BURPOUGMS DISK) MACRO. V36 19:1(? 4-JUN-69 PAGE 40 
■^WAP R, KRASIN/AF TS4.34 03 FfR b° V406 

FORCFUi ^ushj pdp.trySmp ican this job be stopped in order to do swap? 

JR'^T (TACI) IN". NSiJP OR MSHF SET ( D I SPL AY , RE AL TIME) OP 

I SAVE OR GET IN PROGRESS WITH DEVICE STiLl ACTIVE 
I LOOK FOR AN OTHER JOB TO SWAP 

IFIM FT2RFL.< 

FXTERN FORHGH 

"USHJ PDP.FO'^HGH IIS THERE A HIGH SEG TO BE WRITTFN SEFORf 

I TRYING TO SWAP OUT LOW SEGMENT? 

; WRITE HIGH SEG IP ALL OF THE FOLLOWING ARE TRUEl 

I 1. JOB HAS A HIGH SEG AND 

) ?. IT HAS MOT BEEN SWAPPED FOR THIS USfR 
I (SWP = ei FOR JOB) 

i 3. IT IS IM COREfNOT XPANDH) 

) 4, IF IN-CORE COUNT IS EXACTLY 1 MEANING 
I THIS ONLY USER USING IN CORE 

1 5. HIGH SEG NOT ON DISK YET 

) 6. THIS HIGH SEG IS NOT THE SAME ONE AS JOB 
I BEING FITTED IN IS GOING TO WANT 

) RETURN HIGH SEG NO, IN J IF YES. OTHERWISE 

I RETURN LOW SEG NO, 

I IF JOB JUST HAS LOW SEG. SHF BIT IS SET ]N JBTSTS 

( FOR JOB SO 10 WILL STOP NEXT BUFFER 
> 

^OVSI T.SWP'IFF FT2RELi<SHF> (SET SWAPPED OUT BIT FOR LOW OR HIGH SEG 
lORM T,JBTSTS(J) ISCHEDUlER WILL NO LONGER RUN THIS JOB 

I SET SHF BIT IF ONE SFG SOFTWARE. SO 10 WILL 
I STOP AFTER NEXT BUFFERFUL, 

FORCELl MQVEM J. FORCE lASSUME NOT SWAPPABLE-- I S IT? 

FORCEl; 

IFN JDAT-PROG,< 

MOVE JDAT. JBTDAT( J) 
> 

SKIPM PROG.JBTaOR(J) ILOC. IN PHYSICAL CORE, IS CORE 

I ASSIGNED IN MEMORY? 
JRST SWAPO JND, CANNOT HAVE ACTIVE DEVICES 

CAME J, JOB )IF THIS IS CURRENT JOB, WAIT UNTIL 

I PROTECTED AREA IS MOVED BACK TO JOB DATA AREA 
PUSHJ POP.ANYOEV lANY ACTIVE DEVICES?(2ND HALF OF ANYACT ROUT.) 
POPJ POP, IYES--RETURN AND WAIT FOR I/O TO STOP, 



11363 


002655 


?6['140 


!?0!'«';i0 


1064 


000656 


O540''2 


?l i! '1 


1065 








1S166 








1067 








1068 








11^69 








1070 


000657 


260140 


00a0?!a 


1071 








1072 








1073 








1074 








1075 








1076 








1077 








1078 








1079 








1080 








1081 








1082 








1083 








1084 








1085 








1086 








1087 


000660 


205300 


002000 


1088 


000661 


436304 


000634 ' 


1089 








1090 








1091 








10<52 


000662 


202200 


000547' 


1093 








1094 


000663 






1095 








1096 








1097 








1098 


000663 


336344 


000640' 


1099 








1100 


000664 


254000 


000670' 


1101 


000665 


3122'^0 


000072' 


11?2 








11!"3 


000666 


260140 


000000 


1104 


000667 


263140 


000000 



SCHETB 



- SCHTDULING 4LG0RITnlM FOR SWAPPING SYSTEN- ( 10/5^ ) ( SURtJOUGMS DIS^) 
SWAP R, KRASIN/AF T34,34 ?3 FEB 69 V4afi 
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iie!5 








iSWAP 


UT LOW OR HIGH SEGM 


11^6 












1127 








IMTERi^AL FTTRACK 


11P18 












1109 


C<0!?670 






SWAPO: 




1110 








IFN FTTRACK, <EXTERN LASOUT 


nil 










MOVEM J, LASOUT 


1112 








> 




1113 


000670 


402030 


001^562' 




SETEM FORL'E 


1114 


000671 


55 4 3''' 4 


000663' 




MLRZ T,JRTAOR(J) 


1115 


000672 


3223-50 


000546' 




JUMPF T.SWPl 


1116 












1117 












1118 


000673 


5501?4 


000671' 




HRRZ Tl<jBTAnR(J) 


1119 


000674 


212300 


000001 




MOVN" T,T2 


1120 


000675 


240300 


777766 




ASH T,-'D10 


1121 


000676 


271300 


000001 




ADDI T.l 


1122 


000677 


1373^0 


0006£"2' 




nPB T,IMf;OUT 


1123 


000700 


505ni 


777777 




HRLI T1.-1(T2) 


1124 


00075>1 


261140 


000002 




PUSH PDP,T1 


1125 


000702 


135240 


000562' 




LDB DAT, IMGIN 


1126 


000703 


3350?0 


000005 




SKIPN' DAT 


1127 


000704 


1373:'0 


000702' 




nPB T,IMRIN 


1128 


000705 


200240 


000306 




MOVE DAT,T 


1129 


0l!)0706 


260140 


001206' 




PUSHJ PDP.GXSAT 


1130 


000707 


25401^.0 


000717' 




JRST FULL 


1131 


000710 


506044 


000635' 




HRLM TAC,JBTSWP(J) 


1132 


000711 


?122>^0 


000546' 


0UTP2I 


MOVNM J, FINISH 


1133 












1134 












1135 


000712 


262140 


000002 




POP PDP.TACl 


1136 


000713 


2540710 


001066' 




JRST SOOUT 


1137 












1138 


000714 


4020:10 


000632' 


NOFIT! 


SETEM FIT 


1139 


000715 


476000 


000141' 




SETOM INFLG 


1140 


000716 


263140 


000000 




POPJ POP, 


1141 













(SAVE LAST SWAP OUT FOR DEBUGGING OKUY 

ICLEAR FORCE FLAG 

ICOMPUTE CORE MAGE 

IDONT OUTPUT IF COREdMGOUT ALREADY SET TO 

I WHEN CORE WAS RETURNED 



(•SAVE COUNT FOR CALL TO SOOUT 
ICONVERT TO IK BLOCKS 

IRECORD AS OUT IMAGE 

(•BUILD AND SAVE lOWO FOR SOOUT 

I • 

IHAS SliE OF CORE NEEDED WHEN NEXT SWAPPED IN 

(ALREADY BEEN SET(XP*ND) 

INO, SO SET TO # IK BLOCKS OF CORE NEEDEn 

(•CONVERT CORE IMAGE TO 128 WD BLOCKS 

(•GET DEVICE STORAGE 

(•NONE AVAILABLE 

(•SAVE DEVICE ADDRESS 

(DISK SWAP SPACE ASSIGNED. NOW SET FINISH FLAG 

I SO THAT SWAPPER WILL KNOW WHICH SEG FINISHED 

( WHEN m COMPLETED(SQREQ BECOMES ZERO) 

(•GET lOWD 

(•START OUTPUT AND RETURN 

(FORGET ABOUT FITTING IN A JOB ON DISK 
!••• EXPERIMENTAL »•• MARK DFSIRE TO INP^ T 
(ALL JOBS IN CORE ARE HIGHER PRIORITY, 



SCMECB 



ll')2 
1143 
1144 
1145 
1146 
1147 
1148 
1149 

ii!>(a 

11=51 
11^2 
1153 
1154 
11'55 
1156 
1157 
1158 
1159 
ll^B 

1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 



- SCHEDULING iLGORITHM FOR SWAPPIMG SVSTE>< ( 10/5(1 )! BURROUGWS DISK) 
SWAP R, KRASIN/AF TS4,34 03 FEB 69 74156 
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P100717 
00^720 
("0(»7?1 
0af!7?2 
00(1723 
000724 
000725 
000726 
000727 
000730 
000731 
0B0732 
000733 
000734 

000735 
000736 
000737 
000740 
000741 



000742 

000743 



000744 
000745 



506240 
260140 
554240 
P00740 
505740 
660100 
5061-34 
261140 
?60140 
2540P0 
542057 
262140 
506257 
274300 

3223i?l0 
260140 
200240 
254000 
200240 



202243 

327240 



260140 
254000 



!COME HERE WHEN THE AMOUNT OF SPACE NEEDED ON THE DISK 
ilS NOT AVAILABLE IN ONE CONTIGUOUS BLOCK 



000017 

000755' 

000017 

0000C2 

777774 

400000 

000710' 

000035 

001206' 

000742' 

000000 

000005 

000000 

000035 

000751 ' 

000760' 

000006 

000726' 

000006 



000000 

000727' 



000000 
000741' 



EXTERN GETFCR 



FULL! 



FULLII 
FULLlAl 



HRLM 

PUSHJ 

HLR2 

HOVE 

HRLI 

TRO 

HRLM 

PUSH 

PUSHJ 

JRST 

HRRM 

POP 

HRLM 

SUB 



DAT,AC3 

PDP.FULCOR 

DAT, AC3 

AC3,TAC1 

AC3,-4 

TACl.FRGSEG 



ISAVE OAT (LARGEST AVARASLE HOLE) 

IGET 4 FREE CORE LOCS 

IRESTORE DAT 

ILOC OF 1ST FREE CELL 

14 LOCS 

(LIGHT FRAGMENTED BIT 



TACl. JBTSWP(ITEM) ISAVE LOC OF TABLE IN JBTSWP 

PDP.OAT ISAVE AMOUNT OF SPACE BEING REOUESTED 

PDP.GXSAT (GET SOME SWAPPING SPACE 

FULL2 ICANT HAVE THAT MUCH 

TAC,(AC3) IS4VE LOC OF THE DISK SPACE 

PDP.DAT IRESTORE AMT GOTTEN 

OAT, (ACS) ISAVE AMOUNT IN TABLE 

T.DAT lAMOUNT STILL NEEDED 



JUMPE T.FULSET 
PUSHJ PDP,RMPAC3 
MOVE DAT.T 
JRST FULLl 
FULLIHI MOVE DAT.T (RESET AMOUNT OF SPACE NEEDED 



ITHROUGH If NEED K NOW 

(STEP TO NEXT TABLE LOCATION 

ITRY TO GET ALL WE NEED NOW IN 1 CHUNK 



(COME HERE WHEN CANT GET THE CHUNK REQUESTED 



FULL2I MOVEM DAT,(PDP) 
JUMPG DAT.FULLIA 

IFN FT2REL.< 

EXTERN FRESWP 
PUSHJ PDF, FRESWP 
JRST FULLlB 



(DAT HAS LARGEST CHUNK AVAILABLE 

IGO GET THAT AMOUNT 

( -1"0 MEANS NO MORE LEFT 

(TRY TO DELETE AN UNUSED HIGH SEG FROM DjSK 
(FOUND ONE. TRY AGAIN, J PRESERVED 
I NONE FOUND. PRINT MONITOR ERROR 



SCHE^B - SCHFDULING ILCORITH^^ TOR SH4PPIMG S vs TEm ( 3 C/SP ) ( gURRQUGi-'S DISK) 
SWAP R. KRASIN/AF TS4.I4 "i FEB 6" V^K^ 
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1176 
1177 
1178 
1179 
1110 
1181 
1182 
11R3 
11B4 

lies 
iiae 

1187 
1138 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
12?I0 
12?1 
1272 
1273 
1Z!'4 



FXTE^N CFRRQR 



5100746 
000747 
00(»750 



['00751 
C00752 
000753 
000754 



000755 
000756 
000757 



00076H 
000761 
000762 
000763 
000764 
5100765 
000766 
.^00767 

000770 
000771 



262140 
262140 
265240 



260140 
402017 
554044 
254010 



261140 
260140 
2540,-e 



253740 
260140 
505740 
3 6117 
263140 
?0e0'57 
5621J 7 
702042 

540740 
253740 



000201 
'7 :^ 1 
00'?'i«00 



000760' 
000000 
000725' 
000711' 



OOP 
"OP 
JSP 



PDP, TAC 
PDP. TAC 
nAT.CEPRnR 



(WHAT? NONE LEFT? 

ISET PDP TO RIGHT VALUE 

lERROR IN MONITOR AT . . , 



iHFWE WHFN TME TOTAL A-^OUNT ^F SPACE NEEDED HAS BEEN OBTAINEH 
FULSETi puSmj PDP,RMPAC3 iSTEP To NEXT (LAST) TABLE LOCATION 
SET£M (AC3) (ZERO MEANS END OF TABLE 

HLRB TAC, jBTSKPt ITEM) ;LOC OF TABLE OF FRAGMENTS 
JRST 0UTP2 (GO START OUTPUT 



JHERE TO GET 4 LOCS OF FREE CORE 
000004 FULCORt PUSH PDP, ITEM IGETFCR USES ITEM 
f00«300 ruSHJ PDP.GETFCR !GFT 4 CELLS 
^0'^a.10 JRST IPOPJ jRETDRE ITEM AND RETURN 



00^^157' 
0C^755' 
777774 

0000!'e 

007000 
777777 
777777 

00i»000 

000002 
000760' 



;STEP AC3 To NEXT LOT OF TABLE BEING BUILT 



RMPAC3; 



iOPjN 
PUSHJ 
MRLI 
CAIN 

DQDJ 

'."OVE 
hROc" 

MOVE'' 

HRR 
AORjNi 



AC3,CPr'PJ 
PDP.FULCOR 
4C3,-4 
TACl, {AC3) 
POP, 

TAC,-1(AC3) 
TAC1,-1(AC3) 
TAC, ( TACl) 

AC3,TAC1 

AC3,rPnpj 



lOK IF MORE LOCS OF TA9LE 
IGET 4 MORE LOCS 

lARE THEV CONTIGUOUS? 

lYES, RETURN 

INO, CONVERT LAST GOOD LOC 

ITO A POINTER TO NEXT PART OF TARlE 

ISTORE GOOD HATA IN 1ST WD OF NEW PART 

INEW TABLE LOC 

(COUNT WORD AND RETURN 



SCHETB - SCHEDULING slGORIThm FqP SW4PPIMG SYSTEv ( l?/5'» ) ( BUR°OUGHS DISK) 
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12-'5 








12!"6 








12^7 








12r>8 


(10F772 






12;'9 








1210 








1211 








1212 








1213 








1214 


00P772 


20225^0 


00''7Ui 


1215 


t!0C773 


402000 


000714 ' 


1216 


00f774 


135040 


000704- 


1217 


000775 


242040 


000012 


1218 


000776 


275040 


0000H1 


1219 


000777 


332344 


000673' 


1220 


I?I01000 


2540510 


0005'^0i 


1221 








1222 


0010(?1 


260140 


0B00?i0 


1223 


0010C2 


265240 


000000 


1224 








1225 








1226 


001003 


260140 


0002,^0 


1227 








1228 


001024 


1353C0 


000677 ' 


1229 


001005 


3223!?0 


00?500 ' 


1230 


001006 


1351S0 


000774' 


1231 


001007 


3l5l?0 


000006 


1232 


001010 


200300 


0000^2 


1233 


001011 


2423510 


000034 


1234 


001012 


210100 


00000 6 


1235 


001013 


540104 


000777' 


1236 


001014 


554044 


000753' 


1237 


001015 


254?''0 


001065' 



iSWAP IN A j'^B OP HIC.H SrGME\T 

S>.API : 

IF:nI FTTRACK,<tXTFRN LASIN 

MOVE" J,LASI^ 
> 

«OVE" JiFINISH 

^ZJi" FIT 

LDP TAC. IMGU; 

LSH TACi'D10 

SURI TAC.l 

SKIPF PRDGi JftTADR(J) 

JHST FIMN0 

PUShj PDP.CORGFT 
jSP nAT.OERROR 



IFN Fr2REL.<;EXTERN FIThGH 
PUShj PDP, FITHGH 



iSAVE LAST SWAP IN FOR DEBUGGING ONLY 



ISET FINISH FLAG TO INPUT 

ICLE4R FIT FLAG 

ISIZE OF CORE TO BE ASSIGNED WHEN SWAPPEn IN (INK) 

ICONVERT TO HIGHEST ADR 

(-1 FOR CALL TO CORGET 

lis (LOW)SEG ALREADY IN CORE? 

lYES, POSSIBLE IF THIS IS LOW SEG AND O.Ml Y : 

I HIGH SEG WAS SWAPPED OUT, 

INO, GET CORE TOR LOW OR HIGH SEG 

INOT AVAILASLE-SHOULO NEVER HAPPEN(TELL OPtR) 



INCREASE INCORE COUNT FOR THIS JOB'S HIGH^SEG, 



LOB T.IMGOUT 
JUxpr T1FINP10 
LDP TACl.IMGIN 
CAMGF TACliT 
■'OVE T.TaCI 
LSH T,»D18*tD10 
"OVN TACl.T 
HRR TACl, JBTADRI J) 
MLRZ TAC, JBTSWP!J) 
JRST SOIM 



IGET OUTPUT IMAGE 
IDONT INPUT IF OUT IMAGE IS 
IIS SI?E OF CORE SMALLER THAN DISK SPACE? 
IWELL? 

lYES, ONLY INPUT SMALLER AMOUNT { R , RUN , GET , It JOB ) 
(•BUILD lOWO FOR SQIN 
l» 
)» 

l»GET DEVICE ADDRESS 
(•START INPUT 



SCHEDB 
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1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 



Cai016 
0131017 

0010213 
(!01021 



("01022 
001023 
0010J4 
001025 
?01026 
001027 
001030 

001031 
001032 



1351PI0 
322040 
242040 

271040 



137040 
261140 
1352C.0 

3i5i:<0 

20015'-0 
315040 
700040 

274i'>'0 
272l'^0 



(ROUTINE TO CHANGE DISK SWAPPING SPACE ALLOC AT I ON ( OR SET TO 0) 

JOIFFERS FROM ?ERSWP IN THAT VIRTUAL TALLV FOR SYSTEM IS ALSO CHANGED 

(CALLED FROM CORE0 

(CALL! MOVE ITEM, JOS OR HIG" '^EG NO, 

( MOVE TAC,«1K BLOCKS TO 3E NEW ASSIGNMENT 

( PUSHJ PDP.CHGSWP 

! ALWAYS RETURN 

(CALLED ONLY FROM V I RTUAL + PHYS I CAL CORE ROUTINE CORE0 

INTERN CHGSWP 

EXTERN JOTSTS, IMGIW, IMGOUT, JRTSWP.VIRTAL, IPOPJ 



001006' CHGSWPl LD9 TACl.IMGIN 

001035' JUMPE TACCHGl 

777766 LSH TAC.-12 

000001 4001 TACl 



001016' 

000004 

0010514' 

000004 

000004 

000004 

000004 

000001 
000631 ' 



i»01033 2540PI0 000757' 



nPB TAC.IMGIN 
PUSH POP, ITEM 
LOB ITEM.IMGOUT 
CAMGF TACl. ITEM 
MOVE TACl. ITEM 
CAMGE TAC.ITEM 
MOVE TACITEM 

SUB TACl.TAC 
iDDM TACl.VIRTAL 

JRST IPOPJ 



(SIEE WHEN SEG NEXT SWAPPED IN 

( IS 2ER0 BEING ASKED FOR? 

INO, CONVERT TO IK BLOCKS 

(BUT 00 NOT ATTEMPT TO RETURN DISK SPACE 

( SINCE IT MIGHT BE FRAGMENTED ( SWAPPER WILL 

( RETURN ALL DF DISK SPACE ON NEXT SWAPJM 

( HAPPENS ONLY ON R , RUN . GET , KJOB 

(STORE NEW SIZE WHEN NEXT SWAPPED IN 

(SAVE AN AC 

(GET OLD DISK SI2E OF THIS USERIUSES Hem) 

(IS OLO IN-CORE SIZE BIGGER? 

(NO, USE DISK SIZE AS USER'S OLD VIRTUAL CORE 

(IS NEW IN-CORE SIZE BIGGER? 

(NO, USE DISK SIZE AS USER NEW 

I VIRTUAL CORE 

(DECREASE OF USER VIRT, CORE=OLO-NEW 

(USER'S DECREASE=SYSTEMIS INCREASE OF VIRTUAL 

( CORE 

(RESTORE ITEM AND RETURN 



SCHEHS 



- SCHFOULING iLGORITHM FOR SH4PPIMG SYSTEM ( ia/5!» )( BURROUGHS DISK) 
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1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1230 
1281 
1282 
1283 
1284 
1285 
1286 
1297 



!'01034 
001035 



001036 
001037 



001040 
001041 



634040 
?721-"0 

20511^0 
41215^4 



261140 
135240 



IROUTINE TO RETURfJ ALL OF DISK SPACE FOR A LOW OR HIGH SEC 

ITHIS IS A PHYSICAL DEALLOCATION ONLY AND HAS NO EFFECT ON A SEGMENTS 

(VIRTUAL CORE ASSIGNMENT 

;CALL! MOVE ITEMiJOP NO. OR HIGH SEG NO, 

; PUSHJ PDP.HE'^SWP 

(CALLED FROM SEGCON IN MANY PLACES(5) 

iANO FININ0 HERE IN SWAP 



000001 

001032' 



006000 
000661' 



000005 
001024' 



?ERSWP| 
CHGl! 



INTERN ZeRSWP 



tdha tac.tac 
ADDM taci.virtal 



(REQUEST SPACE ON DISK AND ALWAYS SKIP 
(INCREASE SIZE OF VIRTUAL CORE AVAILABLE IN SYSTEM 
( AND THEN RETURN ALL OF DISK SPACE ( CHGSwP ) 
MOVSI TACl.SWPJSHF (CLEAR SWAPPED OUT BIT IN JOB OR SEG 
ANDCAM TACl, JBTSTSdTEMXSTATUS WORDISHF SET IF 10 WAS TO BE STOPPED 

( FOR Swap on core shuffle 



PUSH POP, DAT 
LDB DAT, IMGOUT 



(SAVE TTY OUTPUT BYTE PO I NTER ( COMMAND DECODER) 
(•SIZE ON DISKdK BLOCKS) 



1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 



001042 
001043 
001044 
001045 
001046 
001047 
001050 



322240 
554044 
260140 
262140 
201040 
137040 
137040 



001045' 

001014 ' 

001224' 

000005 

000000 

001041' 

001022' 



001051 263140 000000 



JUMPE DAT,CHG3 
HLRZ TAC, JBTSWP(ITEM) 
PUSHJ PDP.FXSAT 
CHG3t POP PDP.DAT 
MOVEI TAC.0 
DPP TACIMGOUT 
DPB TACIMGIN 

POPJ POP, 



(DID SEG HAVE ANY DISK SPACE? 

(•YES, LOGICAL DISK BLOCK*FRGSEG BIT 

(•FREE THE DISK BLOCKS NO LONGER NEEDED 

(RESTORE TTY OUTPUT BYTE POINTER 

(0 IS NEW DISK ASSIGNMENT 

(SET DISK ASSIGNMENT TO a 

(SET NEW CORE IMAGE BLOCK SIZE WHEN NEXT SWAPPED IN 

( HERE FROM CHGSWP IF NOT ASKING FOR 

(RETURN 



SCHEHB 


1297 


1298 


1299 


13?fci 


:13?1 


13?2 


IS'S 


13/11 


13?5 


13''6 


13P'7 


1308 


1339 



- SCHFDULING 4LG0RITHM FOR SWAPPR>G SYSTEM (10/5?' )( BURdqUGMS DISK) 
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fxTeRN PROTe.PROT 



IFE FTRC10, 
XP lC:PRTl,3tle3 
XP ICPROT.'OIB 



IPROT ANP PROT0 OCCUR IN COMMON 



/PROTECT TIME IN CLOCK TICS= 

)((JOBSI?E/1K)*PROT0)«PROT 

I PROT0=3.PROT!4 PROOUCE PROTECT TIMES ROUGHLY 

I EQUAL TO 270 DISK SWAP(l-WAY) TIMES, 
> 
IFN FTRCia. < 

(SIMILAR IN-CORE PROTECT TIME PARAMETERS FOR FASTER RD-lPi DISK,. 

XP ICPRT1.3*1»3 IZERO CORE PLUS K MULTIPIIER 

XP ICRH0T,3 (MULTIPLY BY K-1 OF LOW SEG 

> 
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1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 

1329 
1330 
1371 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 



f!01052 
(^01053 
001054 



001055 

001055 
001056 
001057 

001060 
001061 
001062 
001063 



261140 000 

303200 000 

200200 000 

205l?0 000 

616104 001 

350000 000 

436104 001 



004 

1501 

665' 

1 
037' 
323' 
061' 



IXPANL) sn? CO^iDITI0NS TO GET mjpe CORIT FOR 4 JOS BY SWAPPING IN OUT 

.Tme^' PAf-K p, TO OESI^FD AMOUNT, 

.JOBS PO'SITl'^N I^ OS NOT AFFFCTEO, 

jCALl.tO ONLY FRO^ TO^JE CO^t^A^'D 

iASSUIES CALL FOC rjRRFVT jQa ,f EXPANDING HIGH SEG.IE 

iTHIS IS TPlE SI^CF ^Hf-Rr is NO GORE COMMAND WHICH CAN 

,CALL! "OVE ITEi'.CjoB N", ] 

^OVE TAG, [HIGHEST LEGAL AQORESS HESIRED] 
. PJShj POP.XPAND 
! RETURN, TAG DESTROYE'l 



ASSUME 
EXPAND 



AT UUO LEVEL 
HIGH SEG 



242040 777766 
271040 0000PI1 
137040 001050' 



XPAND! 



LSH TAC,-12 
AOni TAC.l 
OPS TAC.IMGIM 



ICONVERT HIGHEST DESIRED ADDRESS 

iTO IK BLOCKS 

;STORE. SO SWAPPER WILL KNOW HOW MUCH CORE 

I TO REQUEST WHEN NEXT SWAPPED IN 



;ROUTINE TO FLAG JOB To RE STOPPED AND SWAPPED OUT 

(BECAUSE IT HAS JUST BEEN CONNECTED TO A HIGH SHARA3LE SEG WHICH IS ON DISK 

lOR ON ITly i,SY IV OR OUT. T^E SIHE OF THE HIGH SEG IS UNCHANGED 

(THE JOB MUST RE STOPPED UNTIL HIGH SEG SWAPPED IN JUST AS IF JOB HAS 
lEXPANDE'^ Hir-.H SEG(MUST RE CALLEO FROM UUO LEVEL FOR CURRENT JOB IF HIGH SES) 
JCALL! "OVE ITEM. HIGH SEG NUMBER 
I DJSHJ PDP.XPANOH 

INTERN XPANDH 
EXTERN IPOPJ 



ISAVE JOB NUMBER 

» IS THIS A LOW OR HIGH SEG? 

(HIGH, So GET JOB NO. (MUST BE CURRENT JOB) 



001064 2540:ie 



001033' 



XPANOHI 

IFN FT2REL.< 

PUSH POP, ITEM 

CAILF ITEM.JOBMAX 

MOVE ITEM. JOB 
> 

MOVSI TACI.JXPn ISET THIS JOB EXPANDING BIT SO IT WILL NnT BE RUN 

TDNN TACl.JBTSTSdTEV) IIS IT ALREADY SET FOR THIS JOB? ( UNLIKELY ) 

»0S XJOB JNO. INCREMENT COUNT ONLY ONCE FOR EACH jOB EXPANDING 

lORM TACl. JBTSTSf ITEM) (AND SET JOB EXPANDING BIT 
IFE FT2RFL.< 

POPJ POP, IRETURN 

> 
IFN FT2HFL.< 

JRST IPOPJ IRESTORE JOB OR HIGH SEG NUMBER (ITEM) amD RETURN 

> 



SCHEDB 



1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1366 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
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1»01065 
!»01066 
0016)67 
001070 
001071 
001072 
001073 



1074 
1075 
1076 
1077 
1100 
1101 
1102 
1103 
1104 
1105 
1106 



661040 
202040 
202100 
202100 
211040 
250040 
326040 



201100 
202180 
205040 
612040 
254000 
550040 
271040 
505040 
260140 
214040 
2021?1 



SUBTTL SWPSF.R H.KRASIM/AF T?4,34 03 FEB 69 V406 

INTERNAL SQIM.SQOUT.SQGO.SOGOl 

INTERNAL FTSWAP 

EXTERNAL DFB'lSV,DFREO,r)FWRT,CPCIPJ,JOBDAC,MJOBCK,CHECK,JBTCHK 

PUT A REQUEST IN THE SWAPPING OUEUE. ENTER AT SOIN FOR 

INPUT, SWOUT FOR OUTPUT 
CALL' MOVE TACliXWO -NO, OF WORDS, FIRST CORE LOC.CIE IOWn*l) 

HRRE TAG, DISK BLOCK k'O . 

PUShJ PDP.SQIN/SOOUT 

RETURN HERE ALWAYS 

CONTENTS OF TAC.TACl LOST 



400000 SOINt 

001342' 5Q0UTI 

001340' 

001341' 

000001 

000000 

000771' 



TLO TAC, 400000 
MOVEM TAC.SERA 
MOVEM TACliSQREQ 
MOVEM TACt.ESQREO 
MOVNI TACl 
EXCH TACDFBUSY 
JUMPN TAC<OPOPj 



ISET READ INCICATOR 

(STORE THE BLOCK NUMBER 

ISTORE THE lOWD 

(SAVE IN CASE OF DISK ERROR ON FRAGMENTEn JOB 

I IS THE DEVICE BUSY? 

lYES IF JUMP 



000003 ERATRYr3 



(NO, OF TIMES TO READ AND WRITE ON ERRORS 



(START UP DEVICE WITH SWAPPING REQUEST, THIS ROUTINE 

(IS CALLED FROM DISK INTERRUPT SERVICE, AS WELL AS FROM ABOVE, 

ilF A SWAPPER REQUEST IS WA I T I NG< SOREQ WILL BE N0N-2ER0) 



000003 

001343' 

400000 

001342' 

001107' 

001340' 

000000 

000000 

000000 

000772' 

000000 



SOGOl MOVEI TACl.ERATRY 
MOVEM TACl.SERACT 
MOVSI TAC, 400000 
TONE TACSERA 
JRST SQGOl 
HRRE TAC, SOREQ 
AODI TACJOBOAC 
HRLI TAC.MJOBCK 
PUSHJ PDP, CHECK 
MOVM TACFINISH 
MOVEM TAC1,JBTCHK(TAC) 



(WRITE? 
(NO 



SCHEOB 



- SCHFOULIMG ^LGOR^THM FO" SWAPPING SYSTEM ( 10/5 J) )[ BURROUGHS DISK) 
SWPSER R,KRASIN/AF TS4.31 03 FER 69 V406 
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1393 


001107 


402000 


001344' 


SQGOi: SET2M SQLEN 


1394 


001110 


2001C0 


001340' 


MOVE TACtiSORET 


1395 


001111 


205040 


200000 


MOVS! TAC. 200000 


1396 


fBlllS 


437040 


001342' 


nRB TAC.SERA )» 


1397 


001113 


626040 


400000 


TR?N TAC.FRGSEG 


1398 


001114 


2540P0 


001142' 


JRST SQG02 


1399 










14("0 








EXTERN GLCORl 


14^1 










14(^2 


001115 


261140 


000005 


FRAGIOt PUSH POP, DAT 


1403 


001116 


210240 


001344 1 


MOVN DAT.SQLEM 


1404 


001117 


274100 


000005 


SUB TACl.DAT 


1405 


001120 


574241 


000000 


FRGIOl: HLRE DAT, (TAG) 


1406 


001121 


540041 


000000 


HRR TACITAC) 


1407 


001122 


325240 


001127' 


JUMPGE 0AT,FRGI02 


1408 


001123 


201240 


077777 


MOVEI DAT, 77777 


1409 


001124 


412240 


001342' 


ANDCAM OAT, SERA 


1410 


001125 


436040 


001342' 


ORM TAC.SERA 


1411 


001126 


254000 


001120' 


JRST FBGIOI 


1412 










1413 


001127 


242240 


000012 


FRGI02I LSH DAT,l2 


1414 


001130 


272240 


001344' 


ADDM DAT.SQLEN 


1415 


001131 


213000 


000005 


MOVNS DAT 


1416 


001132 


506240 


000002 


HRLM DAT.TACl 


1417 


001133 


524240 


000005 


HRLO DAT, OAT 


1418 


001134 


317240 


001340' 


CAMG DAT.SOREQ 


1419 


001135 


500100 


001340' 


HLL TAC1,SQREQ 


1420 










1421 


001136 


213000 


000005 


MOVNS DAT 


1422 


001137 


271240 


777777 


AODI DAT, 777777 


1423 


001140 


272240 


001340' 


ADDM DAT,SI3REQ 


1424 










1425 


001141 


262140 


000005 


POP POP, OAT 


1426 


001142 


621040 


377777 


SQG02I Til TAC, 377777 


1427 


001143 


241040 


000003 


ROT TACBLKSPK 


1428 


001144 


622040 


000004 


TRZE TAC,4 


1429 


001145 


364100 


000000 


SOJA TACliDFRED 


1430 


001146 


364100 


000000 


SOJA TACl.OFWRT 



I2ER0 AMOUNT TRANSFERRED SO FAR 

t»PUT IQWO I^'TO TACl 

j»SET "SWAPPER I/O GOING" FLAG 0\ 

)»FRAGMENTEO? 

litNO, READ IN ENTIRE (OR PART) OF SEG 



lAMOUNT PREVIOUSLY TRANSFERRED 

IINCREASE CORE ADDRESS BY WORDCOUNT PREVIOUS 

INO OF K IN THIS DISK CHUNK 

(SWAPPING ADDRESS FOR THIS DISK CHUNK 

/POINTER TO NEW CORE LIST IF NEG. 

ICLEAR OUT AnR(15 BITS) 

I 

I INSERT NEW ADDRESS 



■CONVERT FROM K TO WORDS 

lADO TO PREVIOUSLY TRANSFERRED AMOUNT 

l-N WORDS 

IIOWO IN TACl 

)-N0, OF WRDS FOR THIS DISK TRANSFER TO ilH 

•COMPARE WITH - NO, WORDS FOR REST OF SEft 

•SWAPPER ONLY WANTS TO READ A PORTION OF SEG 

I NOT ALL OF 1 T (R, RUN, GET , K JOB COMMAND) 

|*N0. OF WORDS FOR THIS NEXT TRANSFER 

(UPDATE LH OF lOWO FOR ENTIRE SEG, SO IT HAS 

I -NO, OF WORDS LEFT AFTER THIS TRANSFER IS DONE 

MCLEAR POSSIBLE TRASH IN LH, 

(•RE-POSITION DISK LOGICAL BLOCK NUMBER. 

(•TEST AND CLEAR READ/WRITE BIT, 

(•YES 

(•NO, WRITE, 



SCHEDB - SCHFDULING JLCORITHM FOR SWAPPING SYSTEM ( llS/50 )( BURROUGHS DISK) MACRO, V3« 19:10 4-JUN-69 PAGE 61 

SWPSFR R,KRAS1N/AF TS4.i1 0,^ Ff.-5 69 V4C:6 

1431 (SERVICE A SWAPPING INTERRUPT 

1432 EXTERNAL D I NT4R. CKSMCT 

1433 INTERNAL SV'PINT 
1434 

1435 001147 6020?0 700000 SWPINT! TRNE I OS , I OQTER ! I OHEPR ! I I MPM 

1436 001150 2540?0 001176' JRST SWPfRR (ERRORS 

1437 001151 622040 4000JI0 TR?E TAC.FRGSEG I •FRAGMENTED? 

1438 001152 331100 001340' '5KIPL TACl.SQREQ (»YES, MORE lOWD TO GO? 

1439 001153 254000 001157' jRST DINT6B (NO, ALL DONE SWAP IN OR OUT 

1440 001154 350000 001342' ACS SERA lYFS, FRAGMENTED AND MORE TO GO 

1441 001155 332001 000001 SKIPE l(TAC) (IS THIS THE END OF SWAP COMMAND LIST? 

1442 001156 344040 001H5' AOJA TAC.FRAGIO (NO. BO DO NEXT PIECE OF FRAGMENTED SEG 
1443 

1444 001157 607040 400000 0INT8H! TLNN TAC, 400000 (sINPUT? 

1445 001160 254000 001170' JRST DINT8A l»NO 

1446 001161 550040 001340' MRRZ TAC,SQREQ 

1447 001162 271040 001102' ADDI TAC.JQBOAC 

1448 001163 505040 001103' HRL I TAC.MJOBCK 

1449 001164 260140 001104' PUSHJ PDP. CHECK 

1450 001165 214040 001105' MOVM TAC, FINISH 

1451 001166 3121f"l 001106' CAME T ACl . JBTCHK f T AC ) 

1452 001167 2540^0 001173' JRST SWPERl 

1453 001170 5520;?0 001342' DINT8A( HRR2M IDS, SERA 

1454 001171 402000 001340' SETZM SJREO 

1455 001172 254000 000000 JRST DINT4B 
1456 

1457 001173 205040 000100 SWPERl: MOVSI TAC. 100 

1458 001174 272040 000000 ADOM TAC.CKSMCT 

1459 001176 660000 100000 TRO lOS.IODTER 

1460 001176 214040 001165' SWPERH : MDVM TAC. FINISH l»RESET SERA IN CASE OF FRAGMENTED JOB 

1461 001177 554041 001043' HLR2 TAC, JBTSWP(TAC) (eSWAP LOC (DISK ADR OR TABLE ADR) 

1462 001200 542040 001342' HRRM TAC, SERA (sRESTORE SERA 

1463 001201 200040 001341' MOVE TAC.ESQREQ (RESTORE ESQREQ IN CASE OF FRAGMENTED JOR 

1464 001202 202040 001340' MOVEM TAC.SQREQ 

1465 001203 373000 001J43' SOSLE SERACT I»TRIED ENOUGH? 

1466 001204 254000 001107' JRST SOGOl (tNO, TRY AGAIN 

1467 001205 254000 001170' JRST CINTSA l»YES. TOUGH, 



'^CME'"^ 



SCHFOULING ALGOfM'^" rn« =W4Ppi':G E^S^'E'-flK/S'l) (SURPOHGI^S OISK) 
^WPSFH ft , t^RiC JM/4P T = 4,i4 /IT, Ffi: f^ \M?fc 
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1 468 
l<!f.9 
14 7 
147). 
'.472 
] 4 7 J 
147 4 
14 75 
1470 
1477 
1478 
1479 
14B0 
14R1 
14*2 
14«5 
14t!4 
1405 
1 4 f J ^ 

14 a7 
148« 
14S9 
1490 
1401 
1492 
1493 
1494 
1495 
1406 
1497 
1498 
1499 

i50a 

15^11 
15?2 
i5'3 
15?4 
15715 
15?6 
15 7-7 
13*^8 
1 -•' .' 9 
' 5U' 
' :>1 * 
15-2 

i:n4 

1515 
1516 
1517 
15)8 
1519 
15P0 



IFF FTPclii, < 

;S»P5LR LOGir FUi? ThF OLO PD'^-^ (0414 PRODUCTS) DISK FILF --- 

FIND 4 <;eRIi^S Of RlOCKS OM the nj^K TO SWAP O^JTn. CALLEH 

AT CLOCK LE"EL. 

CALL! '^OVE! nAT'.NO, OF IK QL^CVS OFSIRFD 

PUSHJ POP.GXSAT 

ERROR EXIT (DIS'^ !S FULL) 

■vormal LxiT iC(TAC) = Slock mo. 

;CONTENT'; OF ACS tAC.TACl.DAT WILL BF LOST. 

IMTERIM4L GXSiT 
EXTERNAL GETHIT, iPOPJl 



GXS4T: MOVE ACl.XSATl 

"^OVE AC2,XS4T2 ! 
LSH OAT.CONVMD 
PUSH POP, ITE** 

"OVE ITEM, DAT 
°USuj PQP.GETBIT 
JRST IPUPJ 
"CVFI TAC,-1(T4C1) 
CAIL TAG, SLOCKS 
4001 TACDIFF 
LSH TAC.-CONVMn 
JRST IPOPJl 



iSAVF 4C1, SET IT TO T4RLE L"C. 

ICONVERT TO 128 -niVJ DISK -L'^CKS 
ISAVE C(ITEM) 

IGFTPIT EXPECTS PARAMETER I J ITE*' 

IFIND A HOLE BIG LfJO.iGH 

INOi'vE, RESTORE ITEM 4 f, "5 ERROR RETURN, 

I 15 IT OV niSK 17? 

lYFS 

ICARPY DISK AOORESS 3H1FTE1 TO FIT iv JJtSWP. 

ISKIP RETURN AND RESTORE JOB NUMBER ( I TE* ) 



JFREE UP A SERIES OF BLOCKS ON THE SWAPPING OEVICE. CALLED 
lAT CLOCK LEVEL. 

icall! movei dat, no, of ik core blocks to free 

s move tac, block no. of first disk blo-k to free 

; pushj pop.fxsat 

; always ketur^i here 

!contents of acs tac,t4c1 will bf lost. 

internal fxs4t 

EXTERNAL CLhPIT,lPOPJ 



•^XSAT: LSH TACCONVMD 
CAIL TAC, HIS WAP 
SU°I TACDIFF 
LSH OAT,rOMVMD 

MOVE aci,x=;ati 

f'CVE A''2,XSaT2 
PuSt- "--r , i lEM 
"OVE IU-,CAT 
^L«^■.^ r;n,CLRBn 
,jr<ST IPUFj 



IRFSTORE SHIFTED DISK ADPRESS. 

I0\ "ISk 17? 

lYES 

iCONVEPT TO 128 WORD DISK OLCCKS 

ISET UP 4C1 WITH PCPiTER TO SAT BLOCK 

I4C2 TOO 

iSAVF C(ITFM) 

iCLRflIT EXPECTS PARAMETER IN OAT 



SRETURN, AND RESTORE ITEM 
IwiTlALI^r <:^JPPER DISK STQBACE TABLE 



SCHEOB - SCHFOULING ALGORITHM F[)P SWaPPI^'G SYSTEM (10/5?, )( BURR0UG''S DISK) 
SWPSER R,KRA'=IM/AF TS4,;S1 03 FE3 69 V-t^a 
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1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
155B 
1559 
1560 
1551 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 



INTERNAL SWPINI 

SWPINI! MOVE TAC,XSAT2 

WOVE" TAC.XSAT31 
MOVSI TACilBlS 
MOVEM TACiXSAT3 
SETZM XSAT4 
MOVE T4C,XSAT4p 
RLT TACiXSAThl 
MOVE TAC,XSAT7 
MQVE>' TAC.XSAT5 
MOVE TAC.XSATS 
MOVEM TAc;,XSaT6 
POPj POP, 

IFN FTCHECKtFTMONP,< 

EXTERNAL S0RE0,SERA,SERACT,XSATi,XSAT2,XSAT3.XSAT4,XSAT5,X>;AT6,XSAT7 

EXTERNAL XSAT8,S WPS 1?,HISWAP,01FF,C0NVMD, BLOCKS, XSAT31,XSAT4P,XSAT61 

> 

IFF FTCHECK*FTM0NP,< 

DATA ANn STORAGE AREA FOR SWAPPING. ON THE 270 DISK, DISKS 
P « 17 ARE USED FOR SWAPPING, EACH DISK CONTAINING 
5400 (OCTAL) RECORDS, 

INTERNAL SOREO.SERA.SERACT 

SQREQI ' ICtLHJsNEG. OF SIZE OF READ/WRITE 

I C(RH)=LOC, OF FIRST WORD TO READ/WRITE 
ESOREUI ? ICOPY OF SOREQi IN CASE OF 

I ERROR IN FRAGMENTED JQ9 
SERA; ? ISIGN IS 1 IF A READ 

I C(RH>=BLOCK NUMBER BEFORE READING, 

I ERROR BITS AFTER READING, 
SERACTi a ICOUNTER FOR ERRORS 

SQLEN! (AMOUNT TRANSFERRED SO FAR - FRAG SEG 



XSATII EXP XSAT3-.1 

XSAT2! XWD -SWPSIZ.XSAT4 

XSAT3! XWD 400000, 

XWD -SWPSI2,XSAT4 



XP BLOCKS, 5400 

Wl=BL0CKS/tD36 

E1=BL0CKS-W1»»D36 

EX=BL0CKS*El-»035 

W2=EX/tD36 

F2=EX-W2otD36 

XP XSAT31,XSAT3+1 
XSAT4! RLOCK Wl 
XSAT5: BLOCK W2*l 
XSAT6; RLOCK 1 



IPOINTER USED RY GETB I T , CLRBl T 

IPOINTER TO BIT TABLE 

12-WORD TABLE ALTERED BY GFTB I T , CLRB I T 



I BIT TABLE FOR SWAPPING ALLOCATION 
INUMBER OF RECORDS/DISK PLATE 
INUMBER OF 2ER0 WORDS AT TOP OF TABLE 
ILEADING ZEROES IN W1*1ST WORD 

IZERO WORDS AT BOTTOM OF TABLE 
)LEADING iEBOES IN W1+W2*2N0 WORD 



SCHEIIB - SCHTDULINiG '.lGqRITHm FDR SWAPPImG S YSTE^' ( 1 ^/5'' ) ( BURKqus'i^ DISK) 
c»(PSrR R.KRA'UN/AF T^q.dl »3 FF_R 69 VA?6 



■'Ar^n.iM«> 19!1? 



-l-^JN-fQiPi'E £i 



1574 

1576 
1577 
1 578 
13 7 9 

15*-1 
15=)2 
15 33 
1 514 
15n5 
i 5«6 
15'j7 
1 5 », 8 
15Fiy 
1 590 
1591 
1502 



[FF Fl,<y = iB'<> 

IFN ri,<X=l 

fJEPEAT tni5-ri, <y = ye2>> 

IFF r2,<Z=-l> 

IF^J F2,<^ = '^ 

v = l 

-EPFAT tn36-r2, <:' = '»y 

V= Y«P> 
>> 

XP XSAT61 , XbATf -1 
VS4T7; FXO X 
XbAlft! fXP 7 



SWh'Sl!' = X'=AT»,-XSAT4tl 
HISW4P = 17u'=^"CKS 

niFF = Hisi'AP-sLncKS-i 



iblZC OF TABLE 

ilOgical block k'jmse^ hf first 
i bltck hn disk 



1593 
1594 
1595 
1596 
1597 
1598 
1 599 



XP cr;>iVf"",3 ;-ONVEHSI0'*) TR'^" IK TORE BLOCKS TO 1?8 -vOrtP 

;DISf ^incKSISMIFT CIIU^JT ) 

XP HlkSPk.CD^V^D inI. of blocks PFR K, SA>^E as rONVf'D 

XSAT4P: yViV XSAT4 , XSAT4tl 

> 

> iE^■D or S«PSrR LOGIC FOR THE OLD Pnp-6 OlSK. 



SCHEOB - SCHFQULlNr, jlGORIThw FqR SU/SPPI'-.g 
SwPSFR H,i^RASIN/Af TSI.JI 0:1 FE" 



SYSTEw ( 10/5?i) (BvJRROUG^S DISK) 
-9 V 4 ;• 6 
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1600 
16?il 
161^2 
1 673 
16f"l 
16PI5 
16?i6 
16?7 
1608 
161»9 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
16?0 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 



I^ai2?6 
l'^12Pi7 
CI01210 
(101211 
001212 
001213 
001214 
001215 
001216 
001217 
001220 
001221 
001222 
001223 



261140 
2002!10 
201640 
2007r'0 
260140 
25407)0 
2711>14 
313i;i0 
202l''0 
242i:^0 
274it>0 
214040 
242040 
344040 



000B!?4 

000005 

001301' 

0013711' 

000000 

001364' 

777777 

001300' 

001300' 

000003 

00'^000 

000002 

777775 

000000 



IFivi i^TRCly, < 

JSWPSES LOGIC i"Of.' ThF tJEW PDP-10 MODEL RC-10) DISK 



INTERiMAL 
EXTERNAL 
EXTERNAL 



GXSAT,FXSAT,<;WPI'jI 
GETBIT.CLRBIT 
LBHIGH, IPC^J, IPQPjl 



ISUBROUTINF "GXSaT" iS CALLEI^ To FIND A SERIFS OF CONSECUTIVE FREE BLOCKS ON 

) THE DISK TO Swap some job nuT cmto. it IS called at clock level, 

CALLING sequence 

PUShJ PDP.GXSAT 

ERROR EXIT -- THE DI'K IS FULL, NO SWAPPING SPACE AVAILABLE, 

k'ORMAL EXIT 
ENTRY CGNOninNS 

CIDAT) = NUMBER nF IK BLOCKS OF DISK STORAGE NEEnED. 
EXIT CONDITIONS 

rCTAC) = LOGICAL BLOCK NUMBER (DIVIDED 8Y 8) OF THE FIRST DISK Bl OCK IN 
The serifs of consecutive blocks which satisfy THIS REOUEST, 
ACCUMULATORS OAT, TAC, TaCI, ACl, AND AC2 ARE DESTROYED BY THIS SUBROUTINE. 



GXSAT! 



PUSH 


POP, ITEM 


"OVE 


ITEM, DAT 


"OVEI 


AC1,SWPENT 


MOVE 


AC?,SWPENT 


PUSH J 


RDP.GETBIT 


JRST 


IPOPJ 


ADOI 


TAC1,-1( ITEM) 


CAMLE 


TACI.MAXSIIP 


MOVE" 


TACl.MAXSWP 


LSH 


TACI.BLKSPK 


SUB 


TACl, LBHIGH 


"OVM 


TAC.TACl 


LSH TAG 


,-BLKSPK 



«OJA TACIPOPJl 



ITHIS ROUTINE SAVES AND RESTORES ACCUMULATOR "ITEM". 
ISET UP ENTRY CONDITIONS FOR THE "GETBIT" SUBROUTINE, 



;N0 room IN THE SWAPPING PART OF THE DISK. 
IROOM FOUND--COMPUTE LOGICAL BLOCK NUMBER OF THIS 
IFIRST BLOCK IN A SERIES OF CONSECUTIVE FREE DISK 
IBLOCKS, THE "SWPTA8" TABLE SEARCHED HAS ONE BIT 
IFOR EACH IK OF SWAPPING DISK SPACE, BUT IS STORED 
(BACKWARDS (1ST BIT OF SWPTAB = LAST IK OF DISK), 
lALSO UPDATE "MAXSWP" IF PREVIOUS MAXIMUM EXCEEDED, 
iCOMPRESS DISK ADDRESS TO 17 BITS FOR Lm OF JBTSWJi 
lAOD 1 TO TaC AND RESTORE ITEM AND SKIP RETURN 



SCHEPB 



1676 
1637 
1636 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

16S0 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 



- SrHroiJLlNP ILGORlTw" rof! 



03 



SVSTE"(1,V5')(3:IHR0MGMS DISK) 
■> 9 V 4-0 
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P!l312?4 
f012?5 

SI01226 
001227 
P01230 
!'01231 
P01232 
("01233 
001234 
001235 
P01236 
001237 
001240 
001241 
001242 
001243 
001244 
001245 
001246 

001247 
001250 
001251 
001252 
001253 
001254 
001255 
001256 
t»01257 
001260 
001261 
001262 



626740 
254/V'0 

55«'740 

55«es7 

5742H7 
323240 
26f 140 
252740 
550040 
261140 
5542?0 
274040 
242200 
350000 
260140 
262140 
332057 
254000 
263140 

261140 

2002'-»0 
242,-40 
274040 
2170?e 
271040 
211640 
2420?5 
274040 
201640 
200700 
260140 



40?ie?l0 

0i';i247i 
00;-'t;;'i 

'^ fl 
000^)00 

001234' 

001247' 

001227' 

000017 

000004 

000017 

000004 

777776 

000304 

000000 

000004 

000000 

001226' 

000000 

000004 
000005 
000003 
001220' 

0000I>1 
0001 

000003 

000000 

300005 
001301' 
001301' 
000000 



j'iBqoiiT!;- r "rySiT" 

T H r F R r ; S ^ P A ■'. E F 
FUTURE S '■.' 4 ° P R ■; ■■! t 



IS CALLE- TO RETURN A SERIFS OF CCNSECUTIVF niSK BLflcKS TO 
;0l, THu-; ma'IN'G them available FOR RE-USE IN HA\'0L1'-G 
'QUESTS, IT IS CALLEn AT CLOCK LEVEL. * -un b 



CALL iN'i; 5roiiE"'JC'" — 

uUShJ POP.rXSAT 
■vOR^AL tVIT 

EVTRV CrWTITIONS 

(■(TAD = LOGICAL eLOTK ^ii'MHER OF THE FIRST DISK RLOC' IN THE 

StrtlES hHlCH IS TO 6E MAOE AVAILABLE. 
r(nAT) = NUMBER OF CONSECUTIVE IK BLOCKS OF OISK SPACE HHICH 
AkC to be MAOE AVAILABLE. 
EXIT CO'DtTIONS 

THE REOUFSTEP BITS IM THE SWAPPIMG SPACE AVAILABILITY TABLE 
(iMAMELY. SWPTAB) HAVE SEEM CLEAHED TO ?ERO. 
ACCUMULATORS DAT, TAC, TACl. ACl, ANO AC2 ARE DESTROYED SY THIS SUBROUTINE. 



fxsat: 



J H.ST 



FRAGPK; 
FRCBKl! 



■IhR^ 
-IKRi? 
mlRE 
JLlMpLE 
PUShJ 
ALPjP 
FRG8K2! MRR;; 
PUSH 
HLRE 
SUB 
LSH 
AOS 
"UShj 
POP 
SKIPE 
JRST 
oQPj 



TACFRGSEG 
f-XSATl 

AC3, TAC 
TAC, (AC3) 
DAT, ( AC3) 
DAT,fRgBK2 
P0P,FXSAT1 
AC3,FRGBK1 
TAC, AC3 
PDF, ITEM 
ITEM,AC3 
TAC, ITEM 
ITEM, -2 
ITEM 

PDP,CLC0R1 
POP, ITEM 
TAC, ( AC3) 
FRAGBK 
POP, 



FXSATl! 



PUSH POP, ITEM 
MOVE ITEM, DAT 
LSH TACRLKSPK 



FXSATC! 



001263 254000 001213' 



?UP 


TAC 


LBwiPH 


MOVMS 


TAC 




AOOI 


TAC 


1 


>«UVN(I 


ACl 


rlks^'k 


LSH 


TAC 


(ACl) 


SUP 


TAC 


DAT 


"OVEI 


ACl 


SWRE^IT 


MOVE 


AC2 


SWPENT 


PUShJ 


PDP 


CLRBIT 


JRST 


POPJ 





IFRAGMENTED? 

)N0. DO IN REGULAR WAY 

lYES. LOT OF TABLE IN AC3 

JL^C OF NEXT DISK ADDRESS 

(NUMBER OF K 

IGIVE UP FREE CORE IF NOT REAL ADDRESS 

IGIVE UP THE DISK SPACE FOR THIS PART 

iCiUNT WORD OF TABLE. GET NEXT 

ILTC OF TABLE 

INUMBER OF WOS IN TARLF 

IPOINT TAC Tr 1ST WORD OF BLOCK 

14 WDS PER BIT 

IGIVE UP FREE CORE 

)ENO OF TABLE? 

INO. GO CHASE NEXT PART 

lYES. DONE 

ITHIS ROUTINE SAVES AND RESTORES ACCUMULATOR "ITEM". 

IREGENERATE THREE LOW ORiJER BITS IN DI3K ADDRESS 
IPPEPARE TO CLEAR BITS IN THE SWAPPING 
; AVAILABILITY TABLE EY TRANSFORMING THE LOGICAL 
I BLOCK NUMBER TO AN EQUIVALENT BIT NUMBER IN THIS 
I TABLE (WHICH IS STORED IN REVERSE ORDER AND HAS 
I ONE BIT PER IK OF SWAPPING SPACE ON Thf DISK), 



ISET UP ENTRY CONDITIONS FOR THE "CLRBIT"' SUBROUTINE 

iTHE "CLRBIT" SUBROUTINE IN "DSKSER" ACTllALLY DOES ' 

I THE WORK OF CLEARING THE BITS. 

IRESTQRE ITEM AND RETURN 



5CHE'^B 
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1. 6B9 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1597 
1698 
1699 
1730 
17'il 
17P12 
17!'3 
1 7?4 
WfS 
17'S6 



■701265 
(''01266 
(^131267 
5101270 
C; 131271 
f01272 
P'01273 
P01274 
C01275 



IROUTINE TO RE-IMTIJLI2E ThF SWAPPIN'G AVAILABILITY TABLE, 
I SYSTEM INITIALISATION TIME. 



CALLED AT 



EXTERN V IRTal .SivPHGH 

«0i264 SKeij^e ?iai252' swpini; 'iove tao.lbhigh 



202i!40 

J1H)40 

200i;-0 

?020'<2 

2531^0 
201540 
?0ti7.'0 
?02!2!-'0 
2022 '0 



0kl?000 

0000^1 

0013/1' 

0000?0 

001270' 

001301' 

0013"!' 

00007;^ 

001035' 



»<OVE" TACSWPHGH 



MOVM 


TACl 


^'OVE 


TACliS^PFNT 


wDVEM 


TAG, (TACl) 


AOBjN 


TACl, .-1 


"OVEI 


ACl.SWPEVT 


«OVE 


AC2.SWPEMT 


"OVE 


ITEM,K4S^AP 



WOVE" item.virtal 



ISET HIGHEST LOGICAL BLOCK 

IFOR SWAPPING IN COMMOM 

ISET ENTIKE TABLE TO ONES. I.E.. MARK EVERYTHING 

I AS BEr'G U»'AVAILA8LE FOR SWAPPI.vG. 



ITHEN USE THE "CLRBIT" ROUTINE TC CLEAR 1UT AS MANY 

I BITS AT The FRONT OF THE TABLE AS THERF ARE IK OISk 

I AREAS ALLOCATED FOR SWAPPING USE, THE PARAMETER 

ITOTAL AMOUNT OF VIRTUAL CORE ALLOWED 

I IS JUS EQUAL TO AMOUNT OF SWAPPING SPATE 

I EVEN IF USER CAN NOT HAVE ALL OF PHYSICAL USER CORE 
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I??? P01276 ?K1?'1(^ B0?:.!'/'0 

1 7K8 

17-19 ^01277 254^70 201262' 



"OVEI 
JRST 



T A C , '/I 
TLRSIT 



! "K4SWAP" 1= SET tP DURING niSK RE E RE S n i MG , A\D 

! RECALLED FROM THE DISK AT F«CH S YS T EM- > Hi I T 1 AL I if E . 

;l^ LIEU OF "PUSHJ CLR51T" FOLLOWED BY "pCiPJ", 



scHE^e 



S'-htDULIN'^ 4LncRIH" roR SwtPPpG S YSTE-^ (lZ/5:" ) ( BURPOUGus DISK) 
= «rsrH R.KnA-IS/»F T S 1 . 3 4 « ? FE5 6 ■; V4'6 
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1 710 
17-. 1 
17 12 
1713 
1714 
1715 
1716 
1717 
1718 
171.9 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
17 3Z 
1731 
1732 
1 733 
1 734 
1735 
1736 
1737 
1738 
1739 
1743 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 



PBlS^a 5)0Gi'.-g 



51013v"l 
i?013?2 

eiai3'?4 



"01341 
5'01342 



l?01343 
001344 



7777 

4U00 

7777 



f0134|? ^0i^?; e 






'•'0 



f!0i'l? 

0000 



ir\l rT:-H["CK + FT"ovP, < 

tXTE5'iv4L ^CSnT iOUM^Y GLOBAL SYMBOL TO PERMIT THE SYSTEM 8UILDEP TO 

t ciETRIEVE TiJE CDHRECT BINARY COPY OF "SCHOaT", 
FXTE'^WAL SQ'^ETi'^ERAiSFftACT 

FXTEPMAL !.-i>J!':H,BLKSPx,MX.<2SKP.SwPENT,SWPTAB,MAXSyP 

> 

IFE FT.-ijrcKtFTM.a'jP, < 

!OAT« AS=;0CI4TFD WITH THE Sw^SER LOGIC FOR THE NEW POP-l^' DISK 

INTE'fNi "XK2SWP,C0NV''D,HLKSPK,SWPTAS.MAXSWP 
rXTf^l^ K45W4P 
iTHE AROVE APE REFERENKEn OR INITIALIZED BY THE "ONCE" ROUTINE. 

CK vuMBER TH BE USED FOR S'/)APPING 
ESN DIALOG 

WORDS iLLOCATEri FRO SWAPPIkiGi ALSO 
ESN DIALOG 

K FROM TOP TO LOWEST JO=i 
SINCE SYSTEM BEGAN 

ASSIGNED COUNTING FROf 
HOLES. WHEN = C(K4SWAP) , 

PAST 

TO CONVERT K OF CORE TO DISK BLOCKS, I.E.. 
BLOCKS PER K OF CORE, 
SISTENCY WITH OLOEft PDP-6 ROUTINE, 
ER OF IK DISK BLOCKS WHICH MIGHT BE ALLOCATED 
G (UPPER BOUND ON THE VALUE OF K4SWAP WHICH 
ESTED AT DISK REFRESH TIME), (ONE MILLION WORDS 
G SEEMS LIKE A NON-RESTRICTIVE ARBITRARY LiMiT,) 

OF SWPTA9 ALLOCATION TABLE, 





;C(LCWSWP)=L0WEST LOGICAL '^f 




;DETFKMI',En i^Y O'.'CF ONLY REFB 




iC(K4i>WAP)=yAX. NO, OF K DISK 




iOETFKMIMtO PY 0>.:CE ONLY REFP 


;»0'.iii;"|0 


MAXSkP! ' ;MAX, VO, of 




1 USF 




i C(MaXSWP) ik-AX , ',0, OF K EVE'^ 




;LOwrsT rxrtPSION, INClL'OINg 




;H4PpenE" sc^ETI^E DUR!"jG The 


0k)i"003 


RLKSPK=3 ISHIFT FACTOR 




! EIGHT OISK 


pe-Jijcs 


C0NV^<Ll = BLKSPK ;ONLY FOR CO" 


00175B 


^'XK2Swp = tul<'?0 ;MAXIMUM NUMSi 




! FDR SWAPPI'V 




i MAY BE REOLU 




i FOP SWAPPIN 


000034 


SWPSIi=MXK2SWP/tn36*l iSIHF 



TOP DOWN TO 
THEN FRAGMENTATION 



HAD 



0013!'4' SWPEnT; xwD 
000000 XwO 

001304' XWO 



-SWPSIt, SWPT»B 

400000, <;■ 

-SWPSIJ.Si^PTAB 



iTHREE WORD POINTER TABLE 

I REQUIRED BY THE "GETRIT" AND 

I "CLRRIT" SUBROUTINES. 



SWPTaB! PLOCK SWPSI2 iSWAPPING SPACE AVAILABILITY TABLE, 



INTERNAL 
C0^i)00 SORET! 



DATA CAPRIEO 0VE»^ FROM THE COMMON PART OF OLD AND NEW SWPSEP ROUTINES 

SOR£O.SERA,S'^RACT,ESnRFO 

iC(LH)=NEG, OF SI2E OF RFAO/WRITE 

I C(PH)sLOC, OF FIRST WORD TO READ/WRITE 

ICOPY OF SORFO IN CASE OF SWAP ERROR ON FRAGMENTED JOE 



l'00?r'i 



rbORFQ 
sera; 



00;h!?0 seracti 

000000 SULEN! 

> 
> 



JSIGN IS 1 IF a read 

) C(Rh):RLOCi' NUMBER BEFORE READING. 

1 ERROR BITS AFTER READING, 

IC0UN1ER FOR ERRORS 

lAMQiiNT TRANSFERRED SO FAR FOR FRAGMENTEO JOB 



iLND OF SWPSEH LOGIC FOR THE NEW PDP-10 DISK, 
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17 '■■2 721J45 
\'0 E^iRflR? f^ET£rTEO 
ORPG^AM BREAK 15 liri-'45 



S r •■ E V ! 
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ACl 


B2Ri;l5 


INT 


ANYOFV 


0Bfl6fi6 


EXT 


AURErj 


PIBRSr"! 


INT 


AVLQTB 


aeB3»7 


INT 


BMPAC3 


ae[»76a 




BQLI":K 


PI2?161 • 




CHGl 


fi!0ia35' 




CHKSuF 


C10C571' 


EXT 


cKjei0 


?0i?i;^2' 




CKJB4 


00(1066' 




cKja^i 


00C073' 




CKJB7 


!?00H2' 




CKJBT 


000137' 




CLRBIT 


001277' 


EXT 


CONVh<D 


0000?i3 


INT 


CPOPJ 


001073' 


EXT 


DAREQ 


000303' 


INT 


ncQ 


000010 


IMT 


OFPUSY 


001072' 


EXT 


0IM4B 


001172' 


EXT 


DTAVAL 


000253' 


INT 


EQFIX AaBBf^ 00l?2>"5' 




EPATRY 


0000;'3 




FSQRFQ 


0013'»1 ' 


INT 


FIN'I'je 


000570' 




F IKiQUT 


000537' 




FITl 


000&61' 




FORCE 


000670 1 


EXT 


F0RCE2 


0006';i' 




FORSIE 


0006')1 ' 


EXT 


FRECRl 


000570' 


EXT 


FREBK2 


001234' 




FRGSFG 


4a00.'0 


INT 


FTCHEC 


i? 


INT 


FTMOMP 


000ii';-"'0 


INT 


FTSWAP 777777 777777 


INT 


FULCnR 


0007'=5' 




FULLIA 


000727' 




FULSFT 


000751 ' 




FXSATC 


!'ei2'-2' 




GXSAT 


0012''6 ' 


INT 


ICPROT 


0000.:»3 


INT 


IMGOIIT 


0010'17 ' 


EXT 


lOOERR 


2000^0 


I NT 


IDS 


00H0?0 


INT 


IPOPJl 


001223' 


EXT 


J 


0000-4 




JBTDAT 


00P514' 


EXT 


JBTQMM 


000154 ' 


EXT 


JBTSWP 


001177' 


EXT 


JORDAC 


001162' 


EXT 


JOPMAX 


001056' 


EXT 


JRO 


000002 


INT 



AC? 


000016 


INT 


AUAVAL 


000250 


Int 


avaltb 


000244 


INT 


pIGhol 


000555' 


EXT 


OGFIX 


000205' 




GEPRGR 


000750' 


EXT 


CHG3 


001045- 




GHKXPN 


000606' 




CKJB? 


000044' 




CKJB4A 


000067' 




CKJB6 


000074' 




GKJB8 


000111' 




CKSmCT 


001174' 


EXT 


rMQ 


000022 




GORGET 


5'01001' 


EXT 


oaaval 


000252' 


INT 


rat 


000005 


Int 


nCREO 


0003''5' 


INT 


"FRET 


001145' 


EXT 


niNT?A 


001170' 




oTn 


000007 


INT 


EQJSIE 400000 000172' 




ERROR 


000620' 


EXT 


FXCALP 


000000 


EXT 


FINISH 


001176' 


EXT 


FIT 


000773' 


EXT 


FITHGH 


0010"i3' 


EXT 


FORCF0 


000656' 




FORCEL 


000662' 




FRAGRK 


001226' 




FRESWP 


000744' 


EXT 


FRGIOl 


001120' 




FT2REL 777777 777777 


INT 


FTDISK 777777 777777 


INT 


FTRC10 777777 777777 


INT 


FTTKAC 


000000 


INT 


FULL 


000717' 




FULLlB 


000741' 




fxsat 


001224' 


INT 


GETBIT 


001212' 


EXT 


MIGHJB 


000612' 


EXT 


ICPRTl 


000006 


INT 


INERR 


000526' 




lOOTER 


100010 


INT 


lOWQ 


000012 


INT 


ISCAN 


000420' 


INT 


JBTADR 


001013' 


EXT 


JBTQ 


000241' 


EXT 


JBTOPl 


000160' 


EXT 


JOAT 


000007 


INT 


JOBOPQ 


000523' 


EXT 


JORPC 


000515' 


EXT 


JXPN 


00001^1 


HMT 



AC3 


000017 


INT 


AJD 


000004 


INT 


AVLN'JM 


000011 


iNT 


BLKSPK 


000003 


INT 


8QJSI2 


000172 




CHECK 


001164 


FXT 


CHGSWP 


001016 


INT 


CKjai 


000041 




CKje3 


000051' 




cKje4e 


000065' 




CKJ86A 


000100' 




CKJB9 


000057' 




CLCGRl 


001242' 


FXT 


CHWS 


200000 


INT 


CORTAL 


000624' 


FXT 


TAG 


000006 


INT 


OCAVAL 


000254' 


INT 


DEVDAT 


000006 


INT 


OFWHT 


001146' 


EXT 


OINTSB 


001157' 




DTREn 


000304' 


INT 


EQLINK 400000 000164' 




ERRPNT 


000531' 


FXT 


FININ 


000500' 


FXT 


FINQT 


000544' 


FXT 


F1T0 


000551' 




FITS!? 


000563' 


FXT 


FORCEl 


030663' 




FORHGH 


000657' 


FXT 


FRAGIO 


0131115' 




FRGBKl 


0131227' 




FRGI02 


001127' 




FTCCL 777777 777777 




FTLOGI 777777 777777 




FTRCHK 777777 777777 




FULCNT 


000^00 


FXT 


FULLl 


000726 ' 




FULL2 


000742' 




FXSATl 


001247' 




GETFCR 


000756' 


FXT 


HOLEF 


000567' 


FXT 


IHGIN 


001054' 


FXT 


INFLG 


000141' 




lOIMPM 


400000 


INT 


IPOPJ 


0B1263' 


FXT 


ITEM 


000004 


iNT 


JSTCHK ■ 


001166' 


FXT 


JBTQMl 


01)0155' 


FXT 


J8TSTS 


0iU063' 


FXT 


JOB 


01)1057' 


FXT 


JOBOPG 


000524' 


rxT 


JOBQUE 


000321' 


iNT 


K4SWAP 


001274' 


FXT 



SCMETB 


- SCHEDULING ALGORITH 




'SYMBOL TABLE 




KCORFl 


?0Pi543 


' EXT 


MAXJRN 


f 120651 


' EXT 


MAVSWP 


?!\ili-''e 


INT 


MJflB''' 


■?eee-i 2 


EXT 


MQRE1 


^fjSiM 


INT 


MTPEO 


■?k)03?6 


INT 


MXnu^ 


aBPi-iz 


EXT 


^JS^.'P 


Pipi0^a 


INT 


NXTJoi 


?imi?2 




OSCAM 


piBPi-t^a 


INT 


PC0RS2 


(10B51I? 


EXT 


PJRSTS 


p:t!f2?3 


EXT 


PQ2 


CI p e 2 IS 




PROT 


PI00611 


EXT 


QAUS 


4 '-' B 




nBAKl 


000235 




QDAS 


000366 




ooriw 


000352 




QFIX 


0002:'5 




QFOR? 


000234 




OIOWW 


00P1340 




QJSI? 


000172 




OMQW 


000346 




QNUL'-' 


000324 




OQTTY 


E"0C0P'6 




ORNiW 


000332 




OSTAP 


!^004v'4 




QSTS 


000372 




OT lO'.JW 


000342 




OTTAP 


000410 




0X1 


000175 




QXFER 


000162 


INT 


RNAVAL 


000244 


INT 


RNRET 


000275 


INT 


SCHDI 


000130 




SCNJOB 


000624 




SEPA 


001342 


INT 


SHFWAT 


000572 


EXT 


SQGOl 


eziii'? 


INT 


SC1I.EV- 


001344 




SSCAN 


000430 


INT 


STnPC; 


0016 


INT 


SUMCOR 


0H0652 


EXT 


SWAPI 


000772 




SWPl 


000546 




SWPERl 


001173 




SWPHrH 


001265 


EXT 


SWPRFC 


000675 




T 


0000/6 




TAC 


000001 


INT 


Tiown 


000013 


INT 


TSQ 


000002 


INT 


USRMIO 


0100-0 


INT 



FOR SWAPPING SYSTEi' ( 10/50 ) (BUROOUGt-'S OISK) 
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LBHIGH 


?iai264i 


FXT 


mAXS 


00001 1 


PJT 


>'lNg 


00 03 


INT 


"GAVIL 


?00251 ' 


INT 


"TAVAl 


000255' 


INT 


MXCOHE 


000016 


INT 


'•'OF IT 


000714' 




■JULD 


0000] 5 


INT 


»ixTjoe 


000010' 


INT 


nuTR? 


000711' 




OCSTOP 


U00536' 


EXT 


POTlST 


000126' 


FXT 


pa3 


000071 




PROT0 


000512' 


FXT 


OAUh 


000344' 




OBITS 


0002';6' 


INT 


QOAK 


0003'50 • 




QOTS 


000374' 




QFOR 


000232' 




QIMI 


0001421 


INT 


nj 


000006 




QLINK 


000164' 




HMTS 


000376' 




TQSG 


000006 




QN 


000002 




OSCAM 


000225' 


INT 


OSTOP 


003326' 


INT 


nsTki 


000354' 




QTRS 


000000 




OkiSS 


000000 




0X2 


000201' 




RCXSKD 


000000' 


INT 


RNC 


000000 


INT 


RUNARL 


440000 


INT 


=;cHEn 


000113' 




SCNOK 


000621' 




?tRACT 


001343' 


INT 


5LPQ 


000014 


INT 


■^QGO? 


001142' 




500UT 


001066' 


INT 


!:T 


000005 




<;tq 


000003 


INT 


SH 


000002 




swApn 


000670' 




SWP2 


000547' 




SWPERC 


000604' 


EXT 


SwPI wi 


001264' 


INT 


SWPS12 


000034 




Tl 


000002 




TACl 


000002 


INT 


TRYSWP 


000655' 


EXT 


TSREQ 


000277' 


INT 


VIRTAL 


001275' 


EXT 



LOG 


000022 




MAXSI2 


000647 


• rxT 


"JObCK 


001163 


1 -xT 


MQC5 


000005 


iNT 


:iTQ 


000011 


iNT 


1XK2SH 


001750 


!NT 


mquelie 


000012 




NXTINI 


000000 


• INT 


OERROR 


031002 


' rxT 


°Z 


000001 




PDP 


000003 


iNT 


PUl 


000017 




°ROG 


000007 


tnT 





000007 




OBAK 


000241 




OCMW 


000330 


INT 


QDCS 


000370 




QDTW 


000356 




QFOHl 


000231 




QINU 


000155 




QJOS 


000322 


INT 


QMQS 


000364 




QMTW 


000360 




DQSTAB 


000414 


! 


QRNS 


000000 




QSLPW 


000362 




QSTOPW 


000326 




OTIME 


000402 


iNt 


QTSW 


000336 




OMSM 


000334 




QX3 


000224 




RE3TAB 


000275 


INT 


RNOUNT 


000414 


iNT 


RUNMSK 


111404 


I nT 


SCHEND 


001345 




SCNUUT 


000610 




SHF 


004000 


iNT 


SQGO 


001074 


INt 


SQIN 


001065 


iNt 


SQREO 


001340 


iNt 


STAVAL 


000247 


INT 


STREO 


000300 


TNT 


SWAP 


000465 


INT 


SWP 


002000 


TNT 


SWPENT 


001301 




SWPERR 


001176 




SWPIMT 


001147 


INT 


SWPTAB 


001304 


INT 


T2 


000001 




TIMEF 


000031 


FXT 


TSAVAL 


000246 


INt 


TT 


000005 




VSCHED 


000421 


INt 



SCHE-^B 



- SrHTDULlMO iLKORlTH'' FOB SWAPPING S VS TL'-' ( lfl/5 Jl ) ( BUHROl'GHS OISKl 
SYXfSOL TABLE 
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rtSAVAL 

wtha=;k 

XPAN1 



C00245' IMT 
^■0^37^ INT 
?iail5!52' If^T 



XCKC?K 
VP4\^H 



^^fa'! INT 

?000f0' IHT 



WSREO 


B00276' 


INT 


XJOb 


B00323' 


INT 


i?ERSWP 


001034' 


INT 



A 


6« 


6 














AC1 


6« 


6 


955 


970 


1i60 


16?4 


1679 


1680 


AC? 


ft# 


6 


1025 


1683 


17'2 








AC3 


6# 


1147 


1149 


1150 


ll'-l 


ir;7 


ll'^9 


1184 




]2->4 
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